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La garbage collectlon 



Ho scritto un programma per archiviazio¬ 
ne dati su nastro con il mio C64, ed ho u- 
no strano problema. Il programma ogni 
tanto si "congela "per qualche minuto, per 
poi continuare normalmente tino alla suc¬ 
cessiva occasione in cui l'inconveniente 
si ripete. Potete darmi qualche lume? 

T.Tarantinl 

R. Il fenomeno descritto e tipico, ed è de¬ 
nominato “garbage collection*. La durata 
della pausa è legata al numero di variabi¬ 
li di stringa utilizzate dal programma, sia 
che esse siano semplici variabili, sia che 
esse siano definite come vettori o matrici. 
Le variabili di stringa sono composte da 
due parti: un descrittore e la stringa di ca¬ 
ratteri. Il descrittore è costituito da cinque 
byte: due per il nome della variabile, uno 
per la sua lunghezza, e due come punta¬ 
tori alla posizione effettiva della stringa di 
caratteri. 


RITE 



to per puntare alla nuova stnnga. 

La vecchia stringa viene appunto consi¬ 
derata “garbage" dal momento che nes¬ 
sun descrittore punta su di essa. 

Il seguente programmino per il C64. che 
utilizza un tipico ciclo GET. mostra come 
viene generata la garbage: 

10 GETA$:IFA$>THEN10 
20 B$-B$.A$ 

30 IFA$o“A“THEN10 
40 FORJ=404940TO40959:PRINT 
CHR$(PEEK(J));:NEXT 

Digitate la parola ZEBRA (il programma 
accetta caratteri fino a che non si inseri¬ 
sca la lettera A). La linea finale mostra il 
contenuto della memoria utilizzata dalle 
stringhe dinamiche, e dovrebbe mostrare 
i caratteri ZEBRAAZEBRRZEBBZEEZZ. 
I primi sei caratteri sono ZEBRA e A. i cor¬ 
renti valori per BS e AS II resto (ZEBR. R. 


Le istruzioni INPUT e INPUT# generano 
ad esempio meno garbage delle GET e 
GET#. E' inoltre possibile forzare l'esecu¬ 
zione di una garbage collection asse¬ 
gnando il valore FRE(O) ad una variabile. 
Una nota finale: se disponete di un CI 28 
ed avete problemi di garbage collection in 
modo 64, passate in modo 128: il BASIC 
7.0 gestisce le stringhe in un modo tale 
che la massima durata d una garbage col¬ 
lection non supera i cinque secondi. 


Ho letto che. per slampare caratteri sullo 
schermo, è possibile utilizzare anche l'i¬ 
struzione POKE oltre la classica PRINT. 
Quali vantaggi olire questo metodo ri¬ 
spetto a quello tradizionale? 


R. Qualsiasi carattere può essere visua- 


Le stringhe possono essere statiche o di¬ 
namiche. Se il programma assegna diret¬ 
tamente la stringa, come in A$=“PIPPO“. 
oppure attraverso la lettura di istruzioni 
DATA, il descrittore crea un puntatore al¬ 
la memoria entro il programma BASIC e la 
stringa è statica. 

Se invece si ottiene la variabile di stringa 
da un file su disco, o si effettuano manipo¬ 
lazioni (con MID$ oppure con il concate¬ 
namento) la stringa viene immagazzinata 
nella parte alta della memoria ed è detta 
dinamica. 

Se varia il contenuto di una variabile di 
stringa dinamica, la vecchia stringa rima¬ 
ne in memoria. La nuova stringa viene po¬ 
sta nella prima locazione di memoria di- 


ZEB, B. ZE, E. Z, Z) è costituito dai vecchi 
valori delle variabili, ovvero dalla garba¬ 
ge. 

Se un programma esegue molte opera¬ 
zioni sulle stringhe, può essere che il 
computer riempia tutta la memoria dispo¬ 
nibile per le stringhe. Se ciò si verifica, vie¬ 
ne eseguita dal sistema operativo la rou¬ 
tine detta di garbage collection. che spo¬ 
sta tutte le stringhe attive nella parte più 
alta della memoria: un’operazione che ri¬ 
chiede un certo tempo. 

Nel peggiore dei casi, la garbage colle¬ 
ction nel C64 può durare per più di un'ora 
Esistono varie tecniche di programmazio¬ 
ne per limitare la garbage ooM o c ti on ad¬ 
erte se. più che risolvere ’i orottema. que- 


lizzato sullo schermo con l'istruzione 
POKE locazione di schermo, codice ca¬ 
rattere. Il vantaggio di questo sistema è il 
poter posizionare perfettamente un carat¬ 
tere o una scritta nella zona di schermo 
desiderata, senza ricorrere a complessi 
spostamenti del cursore. D'altra parte, la 
PRINT è piu' veloce della POKE. Per pa¬ 
ragonare le rispettive velocità, eseguite il 
seguente programma: 

10 PRINT“(CLRj“ 

20 FORR=f Q24TQ2023 
30 POKE R 42 V'EXT 
40 FOBG-OTOMOttEXT 
5C PSfNTTCtR WHITE)'; 

50 =C= = = -”55S:PRINT—;:NEXT 


sponibile ed il descrittore viene aggiorna- ste tecniche servono oer--;-: e- : z= '■ -IV- 


SUPEOCOMMOCC^E : 




PRINT è almeno due volte piu' veloce di 
POKE. PRINT è anche abbastanza piu' 
versatile nel disegnare torme grafiche, 
dal momento che permette di combinare 
un certo numero di caratteri singoli in un u- 
nico carattere piu' complesso. 
L'istruzione POKE, d'altra parte, pone 
sullo schermo un carattere alla volta. Per 
esempio, invece di stampare 1000 singo¬ 
li asterischi in linea 60. potremmo modifi¬ 
care la linea come segue: 

60 FORR-ITOI 124:PRIN1-;:NEXT 

Stampando due asterischi alla volta, lo 
schermo si riempirà con velocità doppia 
rispetto alla precedente. Ovviamente si 
può' modificare la routine per stampare 
due, quattro o piu' asterischi alla volta. 
Piu' aumenta il numero di asterischi nell'i¬ 
struzione PRINT, piu' aumenta anche la 
velocità di esecuzione del programma. 
Un altro sistema per trarre vantaggio dal¬ 
l'istruzione PRINT del C64 è la possibilità 
di creare grandi disegni usando piccoli ca¬ 
ratteri. Ad esempio si può' scrivere un pro¬ 


gramma che disegni rettangoli in base al¬ 
le dimensioni che specifichiamo. Eccone 
un saggio: 


10 INPUT~ALTEZZA";H 
20 INPUTLARGHEZZA";W 
30 SQS--Q- 
40 FORR-1TOW 
50 SQ$-SQ$+1<Y>]":NEXT 
60 SQ$=SQ$+"E" 

70 FORR=1TOH 

80 SQS-SQS+*{GIU'}{2SIN}(DES) 
[<M>]-:NEXT 

90 SQ$-SO$+(GIU-){SIN)@- 
100FORR-1TOW 
110 SQS»SQS+"{2SIN}[<P>]‘:NEXT 
120 SQ$“SQ$+"{2SIN}L" 

130 FORR-1TOH 

140 SQ$=SQ$+"{SU){SIN)[<H>]":NEXT 
150 PRINTSQS 
160 FORR-1TOH 
170 PRINT'{GIU'}';:NEXT 

Eseguendo questo programma, il compu¬ 
ter chiederà le due dimensioni del rettan¬ 


golo. Dopo che le avrete scelte, verrà di¬ 
segnato il rettangolo corrispondente. 
Facendolo, il computer assegnerà alla 
variabile SOS i caratteri che definiscono il 
rettangolo. 

Se digitate: 

PRINT SQS 

alla fine dell'esecuzione del programma, 
verrà stampato il rettangolo stesso. E co¬ 
me se SQS tosse un unico elaborato ca¬ 
rattere che può' essere velocemente 
stampato come qualsiasi altro carattere. 
Occorre pero' prestare attenzione al latto 
che il programma potrebbe creare strin¬ 
ghe (variabili non-numeriche) molto lun¬ 
ghe. e la massima lunghezza ammessa 
per una stringa è di 255 caratteri. Se supe¬ 
rate questo limite otterrete il messaggio: 

7STRING TOO LONG ERROR 

Se ciò' accade, provate ad usare un nu¬ 
mero piu' piccolo in una delle due dimen- 
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In questo creativo gioco di strategia, 
ogni giocatore controlla un gruppo di 
alberi, manipolando il loro sistema di 
radici cercando di raggiungere la falda , 
acquifera. Il giocatore che costituirà il 
sistema di radici più efficiente vincerà 
la partita, giocando contro un amico, 
contro il computer, oppure osservan¬ 
do il computer che gioca contro se 
stesso. E' richiesto l'uso di uno o due 
joystick. 

Immaginate due tipi di alberi in un terreno: 
ciascun tipo di albero 6 controllato da uno 
dei due giocatori. Ben al di sotto della 
superficie della terra esiste una falda 
acquifera: le radici degli alberi possono 
svilupparsi sottoterra cercando di rag¬ 
giungere l'acqua, e bloccando le radici 
degli alberi dell'avversario. Soltanto uno 
degli alberi della squadra di ciascun gio¬ 
catore sarà in grado di raggiungere l'ac¬ 
qua: in Root Race dovrete decidere su 
quale albero puntare maggiormente, 
sacrificare gli altri, e bloccare l’espansio¬ 


ne delle radici degli alberi deH'awersano. 
Root Race ò composto da due program¬ 
mi : un caricatore ed un programma princi¬ 
pale. Caricate ed attivate il primo pro¬ 
gramma. il quale prowederà automatica- 
mente a caricare da disco ed attivare il 
programma 2 (i possessori di cassetta 
dovranno trasferire i due programmi su 
disco, oppure caricare ed attivare il primo 
programma, non dare importanza al 
messaggio d'errore che verrà generato, 
quindi caricare con SHIFT e RUN/STOP il 
programma due). 

Dopo aver attivato il programma, premete 
la barra spaziatrice e rispondete alle 
domande poste sullo schermo orca il 
numero dei giocatori, i colori della scher¬ 
mata principale, il numero di alberi per 
ciascun giocatore. 

Dopo aver regolato a piacere questi para¬ 
metri. il primo giocatore (joystick in porta 
1 ) inizia il gioco selezionando un albero al 
quale far crescere le radici. Per seleziona¬ 
re un albero, posizionate con il joystick il 
puntatore sotto l'albero desiderato (il 


puntatore si posizionerà soltanto sotto 
quegli alberi da cui è possibile effettuare 
mosse ammesse, quindi non allarmatevi 
se esso non vorrà posizionarsi sotto tutti 
quanti gli alberi). 

Dopo aver selezionato l'albero, premete il 
pulsante di fuoco e. in risposta alla do¬ 
manda che verrà posta dal computer, 
indicate con la leva del joystick la direzio¬ 
ne (destra o sinistra) in cui far sviluppare 
le radici. 

Esistono due restrizioni nel movimento: 
non potete muovervi in una direzione 
verso la quale sia voi che il vostro avver¬ 
sario avete già posizionato una radice, e 
non potete spostarvi verso una profondità 
maggiore fino a che tutti i vostri alberi non 
abbiano mosso le radici con mosse 
ammesse per quel livello di profondità. 

I piccoli punti grigi sullo schermo indicano 
i vari livelli di profondità ed i posti in cui le 
mosse sono ammesse per ciascun livello. 

II primo giocatore che riuscirà a raggiun¬ 
gere l'acqua verrà dichiarato vincitore. 


Root Race 
Programma 1 

10 PRIUT"(CLR)( 3 GIÙ'ÌPOKE44,64:POKE1638 
4,0:NEW" :rem 20 


20 PRINT"( 2 GIU/}LOAD"CHR$(34)"ROOT#2"CH 
RS(34)", 8" : rem 108 

30 PRINT"( 4 GIU'IRUN(HOME)" : rem 128 
40 POKE198,3:POKE631,13:?OKE632,13:POKE63 
3,13 :rem 80 


SUPERCOMMOOOBE C84 « I 






Programma 2 

“THEN250 

rem 142 


270 PS(0)="C64 PRIMO! 3 SPAZI)":PS(1)="C6 

20 IFPEEK(49155)<>14THENGOSUB1600 

4 SECONDO ”:IFAS-"(F3)"THEN330 

: rem 196 


rem 166 

30 DIMA(17,16),SC(17),V(17,16) :X=RND(-TI) 

280 IFAS—"(F51"THENPS(0)-"GIOCAT 

1 " : PS (1 ) 

: rem 226 

-"COMPUTER":INPUT"(GIU'1(CYN)NOME";PS 

40 SYS49152:FORT-0TO7:POKE14336»160*8+T,2 

(0):GOTO330 

rem 105 

55 : NEXT :rem 114 

290 INPUT"(GIU')(CYN)NOME GIOCAT 

N.l ”;P 

50 PRINT"(CLR)":F0RT=54272T054 296:POKET, 0 

S(0):INPUT"(GIU')[<8>)NOME GIOCAT. N. 

:NEXT:POKE54296, i5 : rem 195 

2 “;PS (1) 

rem 189 

60 POKE53272, 31 :POKE53281, 0 :POKE53280,11 : 

300 IFPS(0)="C64 PRIMO! 3 SPAZI)"THENPS(0 

H-1024:CL-54272*H:POKE54278,240 

)-"GIOCAI 11 2 SPAZIi" 

rem 89 

: rem 33 

310 IFPS(1)”"C64 SECONDO “THENPS(1)-"GIOC 

70 POKE53280,0:POKE2040,13:POKE54276,17:F 

AT 2( 2 SPAZI)" 

rem 225 

C-252:FD-253 :rem 236 

320 PS(0)-LEFTS(PS(0),14):P$(1)-LEFTS(PS ( 

80 FORT-OTOl 27 : POKE8 32 +T,0 :NEXT : FOP.T=0TO7 

1),14) 

rem 129 

:READX:POKE832+T* 3,X :NEXT:PQKE53287,1 

330 FORT-9TOQ-1:A(T,0)-T+2:NEXT 

rem 115 

:rem 191 

340 GOSUB1420:POKE53269,1 :QZ-0 

rem 255 

90 FORT-0TO9:READEF(T):NEXT:C(2)=15 

350 U-56320:U2=66321:F-0 

rem 22 

:rem 143 

360 M=0:PRINT"(OFF)" 

rem 240 

100 INPUT" (HOME) (GIU') l TEDI 0 2 JOYSTICK 

370 PL=0:CM=A$="(F3)":GOSUB1090:1FM-Q-l-R 

JN:IFJN»1THENPRINT"(CYN)INSERISCI I 

CTHENRC-RC+1 :M-0:L-0 

rem 55 

N PORTA 1” : rem 129 

380 IFRC-Q-2THEN420 

rem 113 

110 IFJN-0ORJN>2THEN100 : rem 143 

390 PL—1 :CM-(A3 = "(F5|"ORAS-"(F3) 

):GOSUBl 

120 A$="(BLK)(WHT)(RED)(CYN)(PUR)(GRN) 

090 :IFM-Q-1-RCTHENRC-RC+1 :M-0:L-0 

(BLU)(YEL)[<1>][<2>][<3>][<4>](<5>) 


rem 153 

f<6>][<7>][<8>]* : rem 233 

400 IFRC-Q-2THEN420 

rem 106 

130 PRINTCS" (HOME ) ( 4 GIU'HRVS) 

410 GOTO370 

rem 104 

{ 21 SPAZI)(GIU')" :rem 70 

420 Sl-SC(A(0,Q-2)-2):S2-SC(A(1,Q-2)-2):B 

140 T-C(2):PRINT”(<7>]SCEGLI IL COLORE DE 

=(A(0,Q-2»AND1):POKEFC,0 

rem 22 

LLA TERRA CON SPAZIO E POI PREMI 

430 IFSl>S2ANDB-0THENK-0 

rem 214 

{ 2 SPAZI)F7.i 2 GIU')" : rem 174 

440 IFS1>S2ANDB-1THENK-1 

rem 217 

150 IF PEEK(203)«60THENT=T+1:C(2)=T 

450 IFS2>S1ANDB—0THENK-1 

rem 217 

:rem 212 

460 IFS2>S1ANDB=1THENK-0 

rem 218 

160 CS-MIDS(AS,(15ANDT)+1,1):FORX=lTO30:N 

470 GS-PS(KANDl) 

rem 87 

EXT: IFPEEK (203) O3THEN130 : rem 92 

480 POKE53269,0:POKE198,0 :POKEFD 

0:G2$="S 

170 F0RT=1T015:P0KEH+364*T*2,160:POKECL-r3 

“: 1FABS(S1-S2)-1THENG2S-"" 

rem 114 

64+T*2,T:NEXT:POKE198,0 : rem 92 

490 FORT-0TO300:NEXT 

rem 244 

180 INPUT"|GXU')(<6>)COLORE RADICI GIOC. 

500 IFS10S2THENPRINT" ( HOME ) (WHT)"SPS" 

N.l (1-15)",-C(0) :C(0)=C(0) AND15 : IFC (0 

(HOME(VINCITORE E' (YEL)"GS"(WHT), CO 

)"0THEN180 :rem 146 

N DELLE “ 

rem 192 

190 INPUT"1 GIU'UGRNICOLORE RADICI GIOC. 

510 IFS1-S2THENPRINT"(HOME)(CYN|PARITÀ'." 

N. 2 (1-15)";C(D:C(1)“C(1)AND15 :IFC(1 


rem 51 

)-0THEN190 : rem 30 

520 IFS10S2THENFRINT" ( HOME) (GIU 

)RADICI 

200 IFC(0)“C(1)THENPRINT"!WHT)SONO GLI ST 

( 3 SPAZI)"ABS(S1-S2)"MT.PIU 

LUNGHE" 

ESSI COLORI ! ! ! ! !":GOTO180 : rem 31 


rem 193 

210 POKE198,0 : INPUT"(GIU' 1(YEL)N. ALBERI 

530 READB,D,X :IFB<OTHEN5SO 

rem 42 

PER GIOCATORE f 3 SPAZI) (3-9)TN:IFTN 

540 POKE54272,D:POKEFC,B: FORT-1TOX*88:NEX 

>9ORTN<3THEN210 :rem 73 

T:GOTO530 

rem 152 

220 Q-TN*2:PRINT"(GIU')(WHT1 TIPO DI GIOCO 

550 POKE54272,0:POKEFC,0:RESTORE 

FORT-1TO 

: Fl-2 GIOCATORI" : rem 60 

18:READX:NEXT 

rem 235 

230 PRINT"! 15 SPAZI|F3=DIMOSTRAZIONE 

560 PRINT"(HOME){ 3 GIU'1(<6>) MUOVI IL J 

( 5 SPAZI!" : rem 4 

OYSTICK PER ALTRO GIOCO *; 

rem 245 

240 PRINT"! 15 SPAZI)F5-1 GIÓC. CONTRO C6 

570 IFPEEK(203)-390RPEEK(U2)-247THENPR1NT 

4" :rem 34 

”(CLR)J=1:GOTO600 

rem 229 

250 GETAS:IFA$=""THEN250 :rem 81 

590 GOTO570 

rem 115 

260 IFAS<>"(FI}"ANDA8<>"{F3)"ANDASO"{F5) 

600 PRINT"(CLR)":FORT=0TO17:FORX 

0TO16:SC 
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(T ) -0 : A <T, X) -0 : NEXT : NEXT : ROO : LG*=0 

: rem 50 

610 ONJGOTO120,330 :retn 12 

620 E=0:PRINT"I HOME 1( 27 SPAZI}"; 

: rem 163 

630 IFRX+D>Q-RC-2THEN780 :rem 191 

640 IFRX+DC0THEN780 :rem 124 

650 IFA (RX+D, RC+1 ) AND1O0THEN780: rem 110 

660 B-INT(RND(-TI)*5>:POKEFD,0 :POKEFC,EF( 
B*2):POKEFD;EF(B*2+l) :rem 145 

670 A(RX+D,RC+1)=A(RX,RC):SC(A(RX, RC)-2) = 
SC (A (RX, RC) -2) +1 : V (RX+D, RC+1>-D+2 

680 T«INT(RND{0}*3)»4 : rem 139 

690 IFDTHEN730 :rem 59 

700 IFPEEK(X+H)<>14 3THENPOKEX+H,140+T/4:G 
OTO720 : rem 81 

710 POKEH+X,130+T :rem 209 

720 POKEX+H+1,131+T:POKEX+CL,C(PL):POKEX+ 
CL+l, C (PL) -.rem 57 

730 IFNOTDTHEN770 :rem 43 

740 POKEX+H-1,128+T:POKEX+CL-l,C(PL):POKE 
X+CL, C (PI.) : rem 69 

750 IFPEEK(X+H)<>143THENPOKEX+H,140+T/4:G 
OTO770 :rein 91 

760 POKEH+X, 129+T .-rem 222 

770 M—M+l: RETURN :rem 235 

780 E=-l: RETURN :rem 153 

790 POKEFD,0:POKEFC,2:POKE54276,33 

:rem 3 

800 PRINT")HOME}[<6>JNESSUNA MOSSA PEP.MES 
SA PER “P$(PL);:FORT=1T02000:NEXT 

:rem 89 

810 POKEFC,0:POKE54276,17tRETURN:rem 204 
820 IFXT>0THENIFA(XT-1,RY)AND1=0ANDA(XT+1 
,RY)AND1-0THENDD-NOTDD -.rem 7 

830 IFXT=0THENXT=l:DD-0 :rem 187 

840 RETURN : rem 124 

850 FF=0:D=1:IFRX<0THENRX=0 : rem 167 

860 IFRC=0ANDF-<TN-2THENF=F+1:RX=TN-1:GOT 
01120 : rem 110 

870 IFF>1ANDRC>0THENRX“INT(TN-RY/2)-1 :IFR 
X<0THENRX-0 :rem 105 

880 FF—1:IFRY>1THEN920 :rem 116 

890 DD—1 :IFRX>0THENIF(-A(RX-1,RY)AND1)TH 
ENIF-A(RX+1,RY)AND1THENRX=RX-1 :GOT08 9 
0 :rem 230 

900 IFRX>0THENIF(-A(RX-1,RY)AND1)AND(A(RX 
+1,RY)AND1-01THENDD-0 :rem 25 

910 GOTO1120 : rem 151 

920 FORT-OTOTN+2:IF(A(T,1)AND1)-OTHENHEXT 
: rem 32 

930 IFT-TNTHENIF-(TNAND1)THENCS=-1:TR=TN+ 
2:GOTO980 :rem 208 

940 IFT-TN-1THENIF(TNAND1)-0THENCS=-1 :TR= 
TN+3:QZ—l:GOTO970 :rem 239 

950 LG-0:FORT-3TOTN*2-5STEP2:IFSC(T)>LGTH 


ENLG-SC(T):TR-T+2 :rem 209 

960 NEXT:CS=0:IFTR-2>TNTHENCS=-1: rem 41 
970 IFC3=0THEN104 0 : rem 38 

980 DD=-l:FORT=lTOTN*2-RY-l:IFA(T,RY)OTR 
THENNEXT :rem 146 

990 XT=T :rem 223 

1000 IF(RY>TN-1)THENIF(-A(XT+1,RYIAND1)AN 
D(A<0,RY)AND1-1)THENXT-XT+1: rem 138 
1010 DD=0:GOTOl000 :rem 235 

1020 IFQZTHENRX-XT:DD—l:GOTO1120 

:rem 83 

1030 GOTO1080 ;rem 198 

1040 D-l :DD-0:FORT-TN*2-RYT01STEP-1:IFA(T 
,RY)oTRORA(T,RY+1)>0THENNEXT 

:rem 216 

1050 XT=T :rem 3 

1060 IFRY>TN-1ANDXT>0THENIF(-A(XT-1,RY)AN 
DI)THENXT-XT-1:DD—1 :GOTO1060 

: rem 152 

1070 IFPEEK(203)-2THENEND : rem 215 

1080 GOSUB820:RX=XT:GOTOl120 :rem 231 
1090 PRINT"(HOME)(WHT)"SP$;"(HOME)"P$(PL) 
* MUOVI.:RX-0:RY-RC:D-l:rem 250 
1100 POKE53269,0:B=0:E=0:FF=0:IFCMTHENRX» 
INT(RND(1)*(Q-RY-2)) :rem 114 

Ilio IFAS="(F5}"ANDPL=1THEN850 :rem 104 
1120 IFIRX>Q-RC-1)ANDBTHENRX=0 : rem 88 
1130 IF(RX<0)ANDBTHENRX=Q-RC-1 :rero 87 
1140 IFRX>Q-RC-lANDNOTBTHENE=E+l:RX=0 

: rem 87 

1150 IFRX<OANDNOTBTHENE=E+1:RX-Q-RC-1 

: rem 86 

1160 PY=99+RC*8:PX=(CE+RC)*8+24*RX*16:IFE 
>1THEN790 :rem 159 

1170 IF(A(RX,RC)AND1I<>PLTHENRX=RX+D:GOTO 
1120 : rem 38 

1180 X=INT((PX-24)/8)+INT((PY-50)/8)*40 

: rem 118 

1190 IFPEEK(X+H+l)<>148ANDPEEK(X+H-l)<>14 
8THENP.X“RX+D : GOTOl 12 0 : rem 253 

1200 IFPX>255THENPOKE53264, 1 : rem 147 

1210 IFPX<256THENPOKE53264,0 : rem 146 

1220 POKE53248,PXAND255:POKE5324 9,PY:B—1 
:POKE53269,1 :rem 104 

1230 IFNOTCMTHEN1270 irem 207 

1240 D-INT(RND(1)*2)-1 :IFFFTHEND-DD 

: rem 4 9 

1250 GOSUB620:1FETHEND“INT(RND(1)*2)-l:GO 
TO1250 : rem 53 

1260 RETURN : rem 169 

1270 J=1:IFPL=1ANDJN=2THENP0KE56322,0 :J-0 
: rem 220 

1280 IF(PEEK(U+JJAND8)=0THENRX”RX+1:D-l:G 
OTO1100 : rem 160 

1290 IF(PEEK(U+J)AND4)-0THENRX-RX-1 :D—1: 

GOTO1100 :rem 204 

1300 POKEU,127 : rem 14 




1310 IF(FEEK<U+J)AND16>>0TREN1270 


:rero 134 

1320 PRINT"(HOME)|OFF)DIREZIONE??? 

{ 19 SPAZI)"; : rem 221 

1330 D=-2 trem 167 

1340 IF(PEEK(U+J)AND8)=0THEND=0 :rem 64 
1350 IF (PEEK (U-f J) AND4 ) =0THEND=-1 : rem 107 
1360 POKE56322,255 trem 195 

1370 IFD=-2THEN1340 :rein 49 

1380 GOSUB62Q:IFNOTETHENRETURN treni 242 
1390 PRINT"{HOME)( 5 SPAZI){YEL)I M P 0 S 
S I B I LEI 8 SPAZI)" treni 143 
1400 POKEFD,01POKE54276,33 :FORK-0TO5*SSTE 
P.2 tPOKEFC,ABS(SIN(K)*9)+31NEXT 

: rem 88 

1410 POKE54276,17 tPOKEFC,OtGOTOl090 

t rem 28 

1420 SP$="{ 40 SPAZI)"tCE=20-Q:G$-""tG2$= 
"" trem 108 

1430 PRINT"(CLR)( 3 GIU')"SP$C$"(GIU')" 

trem 226 

1440 FORT-2TOCEtGS“G$■»" u iNEXTtG$«G$+"U" 
trem 228 

1450 F0P.T-1T0CE:G2S-G2S+" ~;NEXT:G2S-"V"+ 
G2S t rem 173 

1460 D$ _ "OT"tFORT”lTOQ-2 tD$=DS+"OT"tNEXTt 
D$=D$+"0" trem 100 

1470 G$="(RVS)"+G$ trem 96 

1480 X=160+H+CE t X2-160+CL+CE t FORT-OTOTN-1 
tPOKEX+T*4,147tPOKEX2+T*4, C(0) 

t rem 207 

1490 POKEX+T*4+40,146tPOKEX2+T*4+40,C(0)t 
POKEX+T*4< 2,145 tPOKEX2-T*4+2,C (1) 

trem 182 

1500 POKEX+T*4+42,144tPOKEX2+T*4*42,C(l) 
trem 210 

1510 NEXT trem 6 

1520 FORT=lTOQ-2 trem 196 

1530 PRINTGS" [<S>] "D$C$G2$; tD$**I*EFT$ (D$,L 
EN(D$)-2)tG2$=G2$*" “ trem 110 

1540 GS=" *+G$ trem 76 

1550 NEXT trem 10 

1560 IFTNCIOTHENFORT-ITO(IO-TN)*2;PRINTSP 
$;tNEXT trem 52 

1570 T=(10-TN)*2 trem 59 

1580 FORK=0TO21POKE5627 6-K-T* 40,141NEXT 

trem 70 

1590 PRINT"(HOME)(WHT>";tRETURN trem 13 
1600 POKE53281,1;POKE53280»1 :PRINT"(CLR) 
(<1>){ 13 SPAZI !SUPERCCMMODOTRE 
{ 9 SPAZI)" trem 197 

1610 PRINTTAB(10)"( 4 SPAZI}PRESENTA 

{ 7 SPAZIl{ 6 GIU')" trem 234 

1620 PRINTTAB(11)"(RVS)R O O T{ 3 SPAZI) 
RAGE(GIU')" trem 166 

1630 FORI=IT0350tREADAtX=X+AtNEXT 

t rem 70 


1640 IFX<>25073THENFRINT"ERRORE NELLE DAT 
A"tEND trem 151 

1650 RESTORE:FORT=1T0661READXtNEXT 

tram 9 

1660 FORT=0TO99;READXtPOKE49152+T,XtNEXTt 
FORT-0TO1831READXt POKE15360+T,X t NEXT 
trem 213 

1670 RESTORE:RETURN trem 12 

1680 DATA 24,60,126,255,219,24,24,24,18,7 
0,16,16,21,113,18,50,5,131 trem 210 
1690 DATA 16,195,1.5,14,239,1,16,195,1.5, 

18.209.1.16.195.1.5 trem 137 

1700 DATA 18,209,1,21,31,1.5,18,209,1,42, 

62.1.5.31.165.1.42.62.1.5 trem 136 

1710 DATA 31,165,1,18,209,1.5,31,165,1,50 

,60,2.5,-1,-1,-1 trem 191 

1720 DATA 169,0,141,14,220,169,251,37,1,1 
33,1,162,0,189,0,208,157,0,56 

trem 99 

1730 DATA 189,0,209,157,0,57,232,208,241, 

165.1.9.4.133.1.169.1.141.14 

1740 DATA 220,169,27,141,17,208,169,127,1 

41.13.220.169.65.141.20.3.169.192.14 

1750 DATA 21,3,169,129,141,26,208,96,165, 
252,240,5,24,101,253,133,252,141,1 

t rem 97 

1760 DATA 212,169,1,141,25,208,169,0,141, 
18,208,173,13,220,41,1,240,3,76 

trem 19 

1770 DATA 49,234,76,188,254 trem 7 

1780 DATA 0,0,0,3,6,12,24,24,24,24,48,224 
,0,0,0,0,24,24,48,51,30 trem 19 

1790 DATA 0,0,0,0,0,0,224,48,24,24,24,0,0 
,0,1,3,6,12,24,24,24,112,192 

trem 248 

1800 DATA 0,0,0,0,24,24,12,6,3,0,0,0,0 

trem 11 

1810 DATA 0,0,192,240,24,24,24,0,0,0,15,2 
4,48,48,24,24,112,192,128 trem 139 

1820 DATA 0,0,0,0,24,12,12,7,0,0,0,0,0,0, 
0,0,224,48,24 trem 10 

1830 DATA 24,24,24,60,231,129,0,0,0,28,54 
,99,193,0,0,0,0,24,120 trem 243 

1840 DATA 200,203,14,0,0,0,0,0,0,0,0,0,0, 
0,126,24,255,24,255 trem 56 

1850 DATA 24,60,126,0,0,24,24,60,24,126,2 
4,255,60,24,24,24,60,126,219 

1860 DATA 0,24,60,60,126,126,255,255,0,0, 
0,56,124,56,0,0,128,192,224trem 249 
1870 DATA 240,248,252,254,255,1,3;7,15,31 
,63,127,255 trem 2 
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Non abbiamo lino ad ora mai pubblica¬ 
lo un programma musicale cosi polen¬ 
te e facile da utilizzare: Basically Music 
aggiunge infatti nuovi comandi al 
BASIC del C64, permettendo un com¬ 
pleto controllo del chip SID senza la 
necessità di interminabili serie di PEEK 
e POKE. 

Basically Music permette inoltre di ag¬ 
giungere musiche ed effetti sonori ai 
vostri programmi BASIC. E' richiesto 
l'utilizzo del disk drive. 

Con il suo chip sonoro SID, il C64 è anco¬ 
ra uno dei più potenti home computer nel¬ 
l'elaborazione di effetti sonori e musicali 
sintetizzati. Sfortunatamente, il linguag¬ 
gio BASIC del C64 non è affatto dotato di 
comandi per la generazione o per il con¬ 
trollo degli effetti sonori: il programmatore 
che desideri aggiungere un commento 
musicale ad un proprio programma deve 
infatti essere estremamente abile e cono¬ 
scere profondamente le caratteristiche del 
chip SID, in quanto il C64 richiede lun¬ 
ghissime sequenze di istruzioni PEEK e 
POKE anche per ottenere semplici rumo- 

Basically Music nasce proprio dall'esi¬ 
genza di mettere a disposizione anche dei 
programmatori meno esperti le possibilità 
sonore del C64: esso aggiunge al BASIC 
standard del C64 proprio quei comandi 
che sono stati ‘dimenticati* dai suoi pro¬ 
gettisti, permettendo cosi un semplice 
controllo di tutti gli effetti sonori disponibi¬ 
li. 

Dopo aver terminato di comporre un bra¬ 
no con Basically Music, potrete utilizzare 
il suo editor interno per correggere e rego¬ 
lare a piacimento ciascuna delle tre voci 
disponibili e, soprattutto, potrete COMPI¬ 
LARE attraverso il suo compilatore inter¬ 
no il brano creato, in modo da generare 


automaticamente un file in linguaggio mac¬ 
china che potrà aggiungere la musica ai 
vostri programmi, anche durante l'esecu¬ 
zione di questi ultimi. 

Dopo aver caricato ed attivato Basically 
Music (vedere le note per il caricamento in 
fondo all'articolo), disporrete dei nuovi co¬ 
mandi del BASIC che permettono un sem¬ 
plice controllo degli effetti musicali. 

Il programma 2 è un dimostrativo scritto in 
BASIC : dal momento che esso contiene i- 
struzioni di Basically Music, assicuratevi 
che quest'ultimo sia stato caricato ed atti¬ 
vato prima di caricare ad attivare il pro¬ 
gramma 2. 

Basically Music è in grado di gestire le no¬ 
te musicali soltanto nel formato anglosas¬ 
sone: tutte le note dovranno quindi esse¬ 
re inserite in tale formato. Tabelle che mo¬ 
strano la corrispondenza tra le note nel 
formato italiano e quello anglosassone 
sono di facile reperibilità presso i negozi di 
articoli musicali. 

Il comando principale 

Il primo nuovo comando è MUS. Esso 
permette di suonare fino a tre note con¬ 
temporaneamente con una sola istruzio¬ 


ne. La sua sintassi è del tipo: 

MUS notai,nota2. nota3, durata 
Eccone un esempio: 

10 MUS C4.E4.G4.4 

Questa linea suona un accordo composto 
da tre note: un quarto di ottava C, un quar¬ 
to di ottava E, ed un quarto di ottava G. Il 
numero 4 finale indica la durata: in gene¬ 
rale. è consigliabile utilizzare una durata 1 
per note di un sedicesimo. 2 per un otta¬ 
vo, 4 per un quarto, e cosi via. 

Esistono due modi per stabilire pause con 
il comando MUS. Il primo consiste nell’u- 
tilizzare l'istruzione MUS in questa forma: 

MUS .durata 

Tale comando semplicemente attende per 
il tempo specificato nel parametro durata. 
Il secondo modo è il seguente: 

MUS X.X.X,durata 

che provoca lo stesso risultato disattivan¬ 
do però le tre voci. 
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Tulle e Ire le (orme del comando MUS o- 
ra viste possono essere utilizzate insie¬ 
me; eccone un esempio: 

MUS C4,X„4 

Questo comando fa in modo che la voce 

I suoni una nota C di un quarto di ottava, 
la voce 2 venga disattivata, e la voce 3 
venga mantenuta inalterata. 

II comando MUS permette inoltre di spe¬ 
cificare acuti e bassi: utilizzate il simbolo 
# per innalzare il tono di una nota verso gli 
acuti, oppure utilizzate il simbolo £ per ab¬ 
bassare il tono di una nota verso i bassi. 
Tali simboli devono seguire il numero di 
ottava. Ad esempio: 

MUS „G3#.2 

Controllare il suono 

Molti comandi di Basically Music permet¬ 
tono di controllare completamente gli ef¬ 
fetti sonori generati dal chip SID. Essi 
controllano infatti la forma dell inviluppo 
(e quindi del suono) delle voci seleziona¬ 
ti. e vengono chiamati comandi ADSR 
(perchè controllano i parametri ATTack. 
DECay, SUStain, RELease). Per questio¬ 
ni di spazio non possiamo qui effettuare u- 
na trattazione su questi parametri: essi 
sono tuttavia descritti sul manuale del 
C64 e sulla "Guida di riferimento del pro¬ 
grammatore per C64' edita dalla stessa 
Commodore. 

La sintassi per questo tipo di comandi è 
nella forma: 

COMANDO valore voce 1, valore voce 

2. valore voce 3 

I tre parametri possono essere compresi 
in un intervallo tra 0 e 15. Il comando ATT 
specifica la durata della fase di attacco di 
una nota. Un valore 0 provocherà un tem¬ 
po di attacco di 2 millisecondi, mentre un 
valore 15 provocherà un tempo di attacco 
di 8 secondi. Esempio: 

ATT 5 

II comando DEC specifica la durata della 
fase di decadimento di una nota. Un valo¬ 
re 0 provocherà un tempo di decadimen¬ 
to di 6 millisecondi, mentre un valore 15 
provocherà un tempo di decadimento di 
24 secondi. Esempio: 

DEC 5 

Il comando SUS è usato per cambiare il 


volume al quale la nota viene suonata do¬ 
po che siano superate le fasi di attacco e 
decadimento: questo volume passa da 0 
(pressoché inudibile) a 15. Esempio: 

SUS 5 

Infine, il comando REL specifica la dura¬ 
ta della fase di rilascio di una nota. Un va¬ 
lore 0 provocherà un tempo di rilascio di 6 
millisecondi, mentre un valore 15 provo¬ 
cherà un tempo di rilascio di 24 secondi. 
Esempio: 

REL 5 

Altri comandi di controllo sono VOICE. 
PULSE. RING. SYNC. VOL e SPEED. 
Ciascuno di questi comandi regola un di¬ 
verso aspetto del modo in cui viene suo¬ 
nata una nota. 

Il comando VOICE seleziona la forma 
d’onda da utilizzare tra le seguenti: 

1. triangolo 

2. dente di sega 

3. pulsante 

4. rumore 

Potete scegliere una diversa forma d'on¬ 
da per ciascuna delle tre voci: ad esem¬ 
pio. VOICE 1,2.2 regola la voce 1 sulla for¬ 
ma d'onda a triangolo, e le voci 2 e 3 sul¬ 
la forma d'onda a dente di sega. 

Per disattivare una voce è sufficiente spe¬ 
cificare il valore 0 come forma d’onda. 
Esempio: 

VOICE 1,2.3 

Il comando PULSE si utilizza per selezio¬ 
nare l’ampiezza di impulso di una voce, 
ovviamente soltanto quando per quella 
voce sia stata selezionata la forma d'onda 
pulsante. Esempio: 

PULSE 3 

Il chip SID permette di fare in modo che u- 
na voce modifichi le altre due attraverso la 
sincronizzazione e la modulazione ad a- 
nello. I comandi che permettono queste 
regolazioni in Basically Music sono SYNC 
e RING. 

Essi richiedono un solo parametro, costi¬ 
tuito dal numero della voce (1.2 o 3): se¬ 
lezionare la voce 1 significherà combina¬ 
re l'uscita delle voci 2 e 3 sia attraverso la 
sincronizzazione che attraverso la modu¬ 
lazione ad anello. 

Un valore 0 disabilita tale funzione. Si no¬ 
ti infine che il comando RING ha effetto 


soltanto su forme d'onda triangolari. 
Esempio: 

SYNC 2 
RING 1 

Il comando VOL permette di specificare il 
volume di uscita del suono, da un minimo 
di 0 a un massimo di 15. mentre il coman¬ 
do SPEED regola la velocità di esecuzio¬ 
ne del brano (0-15). Un valore 4 è general¬ 
mente accettabile per il comando SPEED. 
Esemplo: 

VOL 15 
SPEED 5 


Comandi avanzati 

Il comando KEY dichiara un tasto musica¬ 
le: tutte le note successive a tale coman¬ 
do verranno regolate verso l'alto o verso il 
basso di un mezzo tono per rientrare en¬ 
tro il valore specificato nel comando KEY. 
Tutti e 15 i tasti standard sono disponibi¬ 
li. e Basically Music converte automatica- 
mente i valori non standard (ad esempio 
una nota A acuta) nei loro equivalenti 
standard (nell'esempio, una B bassa). 
L'effetto del comando KEY può essere di¬ 
sabilitato specificando la lettera N (natu¬ 
rale) dopo il nome della nota. Ecco un e- 
sempio: 

10 KEY G 

20 MUS D3.F4.A4.4 
30 MUS D3,F4N,A4,4 

Nella linea 20. la nota F4 diventa una F4# 
per rientrare entro il tasto G. ed il risulta¬ 
to è un accordo in D maggiore. Nella linea 
30. il comando KEY viene disabilitato in 
quanto è presente il carattere N, ed il risul¬ 
tato è una D minore. Molli brani musicali 
sono composti da sezioni di musica che si 
ripetono in altre sezioni, con qualche lieve 
differenza (un buon esempio è dato dal 
programma 2 dimostrativo). 

I comandi FOLLOW. SHIFT e OCTAVE 
permettono di modificare l'aspetto della 
musica in brani ripetuti entro cicli FOR- 
NEXT. 

11 comando FOLLOW fa in modo che una 
voce segua un'altra voce; il formato di 
questo comando è il seguente: 

FOLLOW principale,secondario 
Esso rappresenta uno strumento ideale 




per fare in modo che due voci eseguano le 
noie all’unisono. Utilizzate questo coman¬ 
do dopo un’istruzione IF per fare in modo 
che le voci si seguano una sola volta du¬ 
rante l'esecuzione del ciclo FOR-NEXT. 
Ecco un esempio: 

10 FORM TO 2 

20 IF 1=2 THEN FOLLOW 1,2 

30 REM INSERIRE QUI I COMANDI 

MUSICALI 

40NEXT 

11 comando FOLLOW può essere disabili¬ 
tato con la sintassi FOLLOW 0. 

Il comando OCTAVE è utilizzato per spo¬ 
stare le voci verso l'alto o verso il basso 
dello specificato numero di ottave. Ad e- 
sempio, il comando: 

OCTAVE 1,-1,0 

sposta la voce 1 verso l'alto di un'ottava, 
la voce 2 verso il basso di un'ottava, e la 
voce 3 verso non si modifica. 

Il comando SHIFT permette di trasporre 
un brano verso l'alto o verso il basso, in 
quanto “shifta" le tre voci verso l'alto per 
Incrementi di mezzi toni. Per trasporre un 
brano verso l'alto, indicate semplicemen¬ 
te nel comando SHIFT di quanti mezzi to¬ 
ni desiderate lo spostamento, 
per trasporre un brano verso il basso, do¬ 
vete invece utilizzare il comando OC¬ 
TAVE per muovervi su un'ottava più bas¬ 
sa e quindi II comando SHIFT per innalza¬ 
re le frequenze da quel valore. 

Ad esempio, per muovere un brano verso 
il basso di due mezzi toni occorrerà utiliz¬ 
zare la seguente istruzione: 

OCTAVE-1,-1 ,-1:SHIFT 10 

L'editor Incorporato 

L'editor di Basically Music viene attivato 
dal comando SCREEN posto all'inizio del 
programma. 


Con la schermata di editing abilitata, ve¬ 
drete la musica scritta apparire diretta- 
mente sullo schermo, e potrete inoltre 
modificarla a piacere attraverso i seguen¬ 
ti comandi: 

Fi seleziona parametro 
F3 seleziona voce 

F5 incrementa il valore del parametro se¬ 
lezionato 

F7 decrementa il valore del parametro se¬ 
lezionato 
V cambia voce 

R attiva/disattiva modulazione ad anello 
S attiva disattiva sincronizzazione 

Provate a modificare i parametri ed ascol¬ 
tare le differenze che si producono nella 
musica: quando avete ottenuto l'effetto 
desiderato, segnatevi i parametri utilizza¬ 
ti ed inseriteli nel programma utilizzando 
gli appropriati comandi di Basically Music. 
Si noti che il comando SCREEN funziona 
correttamente soltanto quando inserito in 
un programma, e non in modo diretto. 

Compilazione del brano 

Dopo aver scritto e testato il vostro brano, 
potete includerlo come subroutine nei vo¬ 
stri programmi BASIC. Per ottenere una 
più elevata flessibilità. Basically Music 
comprende un compilatore per trasforma¬ 
re il brano in un programma in linguaggio 
macchina che può eseguire il brano in sot¬ 
tofondo durante l'esecuzione del vostro 
programma BASIC. 

Per creare una versione compilata del vo¬ 
stro brano, inserite il comando: 

WRITE -nomafile' 

all'inizio del programma, ed inserite il co¬ 
mando: 

KILL 

al termine dell'esecuzione del brano. 


Quando darete il RUN a questo program¬ 
ma, la musica verrà salvata su disco sot¬ 
to forma di un file in linguaggio macchina. 
Si noti che, mentre la musica viene com¬ 
pilata. non è permesso visualizzare nulla 
sullo schermo: eliminate quindi tutte le i- 
struzioni PRINT dal programma, se desi¬ 
derate compilare e salvare il brano su dl- 

Per riascoltare il brano, resettate il com¬ 
puter con una SYS 64738, e digitate l'i¬ 
struzione: 

LOAD ‘nomatile', 8,1 

al termine del caricamento, digitate le I- 
struzioni: 

POKE 56,125:CLR 
Per eseguire il brano, digitate ora: 

SYS 32000 

Il brano verrà eseguito in sottofondo fino a 
che non venga eseguita nuovamente la 
SYS di cui sopra per disabilitarlo. 

Note per il caricamento di Basically 
Music 

Il programma 1 è un programma genera¬ 
tore: dopo averlo caricato ed attivato, es¬ 
so genererà una copia funzionante di 
Basically Music sul dischetto che avrete 
inserito nel drive. 

Dopo aver generato questa copia di Basi¬ 
cally Music, potrete caricarla ed attivarla 
per disporre di tutti i nuovi comandi del 
BASIC. 

Il programma generatore a questo punto 
non vi servirà più, se non per creare altre 
copie di Basically Music su altri dischetti 
nuovi e formattati. 

Il programma 2 è un dimostrativo, e può 
funzionare soltanto dopo aver caricato ed 
attivato Basically Music. 


Basically Music 
Programma 1 

100 J*RINT"{CLR)"TAB(206)"IWHT)GENERATORE 
DI BASMUSIC":PRINT:PRINT :rem 92 
150 PRINT"(CYN)INSERIRE DISCO E PREMERE 
{RVSiRETURN{OFF:PRINT:PRINT 

200 GETAS : IFA$OCHR$ (13) THEN200 : rem 246 
250 OPEN2,8» 7, "BASMUSIC,P,W":GOSUB550 

: rem 215 


300 PRINT#2,CHR$(01)CHRS(08); : rem 73 

350 F0RI=1T0614 0 :READA:CK=CK+A:PRINT »2,CH 
RS (A) ; :NEXTI :retn 18 

400 CLOSE 2:PRINTTAB(9)"[<7>]BASMUSIC CRE 
ATO":PRINT:PRINTTAB (10) ; .-rem 169 

450 END : rem 112 

500 CLOSE2:CLOSE15 :OPEN15,8,15,"SO :BASMUS 
IC":CLOSE15 : END :rem 198 

550 CLOSE15:OPEN15,8,15:INPUT415,E,ES,T,S 
:IFE=0THENRETURN : rem 32 

600 PP.INT"ERRORE DISCO "E": "E$;T;S 
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650 CLOSE15:OPEN15,8,15,"IO:"; 
2049 DATA 015,008,010,000,158, 
2055 DATA 050,048,057,048,041, 
2061 DATA 162,000,000,000,040, 
2067 DATA 128,032,144,255,076, 
2073 DATA 009,000,170,177,145, 
2079 DATA 034,000,000,000,076, 
2085 DATA 000,000,004,000,000, 
2091 DATA 128,009,008,025,022, 
2097 DATA 010,118,163,000,000, 
2103 DATA 000,000,006,066,077, 
2109 DATA 083,073,067,044,083, 
2115 DATA 170,170,170,170,170, 
2121 DATA 170,008,000,003,001, 
2127 DATA 001,000,096,020,029, 
2133 DATA 043,003,255,016,006, 
2139 DATA 000,000,000,000,170, 
2145 DATA 000,000,000,000,000, 
2151 DATA 008,195,000,003,004, 
2157 DATA 000,004,027,000,000, 
2163 DATA 000,216,000,010,003. 
2169 DATA 000,001,000,020,000, 
2175 DATA 128,046,069,078,068, 
2181 DATA 032,032,032,032,032, 
2187 DATA 084,083,032,075,069, 
2193 DATA 084,065,066,044,088, 
2199 DATA 053,044,049,052,055, 
2205 DATA 049,055,057,044,049, 


120 

0 

: rem 70 


: rem 56 
19 

:rem 76 


2211 

2217 

2223 

2229 

2235 

2241 

2247 

2253 

2259 

2265 

2271 

2277 

2283 

2289 

2295 

2301 

2307 

2313 

2319 

2325 

2331 

2337 

2343 

2349 

2355 

2361 

2367 

2373 

2379 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


051,044,050,052,055,044 
050,053,053,044,048,04 
048,062,065,084,084,04 
054,070,073,076,076,06 
083,079,084,069,083,05 
044,050,053,053,044,05 
053,053,045,008,032,19 
255,169,013,066,077,08 
083,073,067,032, 032,03 
032,032,032,032,032,03 
032,032,032,032,032,04 
008,169,004,170,160,25 
032,186,255,169,000,032 
189,255,032,192,255,032 
125,013,169,013,032,210 
255,169,007,162,008,000 
000,140,029,000,195,069 
078,068,032,032,032,084 
044,083,083,087,160,008 
169,002,032,096,244,01 
084,069,032,035,035,03 
092,092,092,092,092,09 
032,032,032,032,049,04 
048,008,200,192,014,20 
245,032,228,012,032,20 
255,169,008,170,168,03 
186,216,000,216,000,21 
000,000,000,216,078,16 
028,144,003,157,244,014 




7 2 

83 
99 

104 
108 

73 

93 

105 

89 
67 
71 
95 

90 
107 

80 

80 

80 

87 

97 
87 

84 
103 

77 

89 

79 

98 
83 
73 
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2385 DATA 
2391 DATA 
2397 DATA 
2403 DATA 
2409 DATA 
2415 DATA 
2421 DATA 
2427 DATA 
2433 DATA 
2439 DATA 
2445 DATA 
2451 DATA 
2457 DATA 
2463 DATA 
2469 DATA 
2475 DATA 
2481 DATA 
2487 DATA 
2493 DATA 
2499 DATA 
2505 DATA 
2511 DATA 
2517 DATA 
2523 DATA 
2529 DATA 
2535 DATA 
2541 DATA 
2547 DATA 


202,202,024,078,165,028 
144,003,157,244,014,096 
014,202,202,024,066,077 
085,083,073,067,046,079 
066,074,044,083,044,087 
169,170,160,021,014,000 
132,107,136,000,156,000 
156,107,136,068,018,234 
169,072,133,044,169,000 
141,000,072,173,008,003 
141,160,003,173,009,003 
141,161,003,169,106,160 
010,141,008,003,140,009 
003,169,090,160,027,141 
004,003,140,005,003,169 
112,160,028,141,006,003 
140,007,003,032,186,016 
032,129,255,162,000,189 
230,009,032,210,255,232 
224,080,208,245,162,000 
189,054,010,157,000,212 
189,061,010,157,007.212 
189,068,010,157,014,212 
232,224,007,208,233,169 
015,141,024,212,096,017 
032,032,032,032,042,042 
042,042,032,032,066,065 
083,073,067,065,076,076 




rem 


rem 


rem 

rem 



93 

91 

92 
88 

104 

102 

73 

67 

99 

90 

77 

76 

81 

72 

87 

79 

76 

79 
99 
81 

92 

80 
82 

93 
90 
86 
69 
79 

111 


DATA 

2559 DATA 
2565 DATA 
2571 DATA 
2577 DATA 
2583 DATA 
2589 DATA 
2595 DATA 
2601 DATA 
2607 DATA 
2613 DATA 
2619 DATA 
2625 DATA 
2631 DATA 
2637 DATA 
2643 DATA 
2649 DATA 
2655 DATA 
2661 DATA 
2667 DATA 
2673 DATA 
2679 DATA 
2685 DATA 
2691 DATA 
2697 DATA 
2703 DATA 
2709 DATA 
2715 DATA 
2721 DATA 




067,032, 

032,032, 

013,017, 

080,085, 

049,057, 

032,050, 

032,066, 

032,066, 

032,070, 

013,096, 

009,000, 

065,009, 

000,065, 

000,000, 

000,000, 

000,000, 

000,000, 

009,009, 

001,177, 

013,032, 

000,201, 

020,011, 

173,246, 

005,108, 

011,201, 

078,013, 

076,126, 

003,076, 


086,049, 

042,042, 

032,067, 

084,069, 

056,056, 

050,053, 

065,083, 

089,084, 

082,069, 

008,000, 

195,015, 

000,135, 

009,000, 

000,000, 

000,000, 

000,000, 

064,064, 

000,000, 

122,201, 

186,016, 

204.208, 
201,153, 
016,240, 
000,003, 

205.208, 
201,206, 
013,201, 
095,013, 


046,048 
042,042 
079,077 
033,032 
032,045 
050,056 
073,067 
069,083 
069,013 
255,065 
255,000 
033,255 
000,000 
000,000 
000,000 
000,000 
064,009 
000,160 
204,144 
032,115 
020,076 
208,010 
005,162 
076,017 
003,076 
208,003 

207.208 

201.208 


107 

110 

74 

97 

102 

101 

85 

105 

103 

93 

84 

82 

84 

54 

40 

37 

43 

79 
62 
82 

83 

80 
70 
90 

84 
72 
83 

85 
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2727 DATA 
2733 DATA 
2739 DATA 
2745 DATA 
2751 DATA 
2757 DATA 
2763 DATA 
2769 DATA 
2775 DATA 
2781 DATA 
2787 DATA 
2793 DATA 
2799 DATA 
2805 DATA 
2811 DATA 
2817 DATA 
2823 DATA 
2829 DATA 
2835 DATA 
2841 DATA 
2847 DATA 
2853 DATA 
2859 DATA 
2865 DATA 
2971 DATA 
2677 DATA 
2883 DATA 
: -- 9 DATA 


208,003,076,114,013,201 
209,208,003,076,213,013 
201,211,208,003,076,238 
013,201,210,208,003,076 
007,014,201,212,208,003 
076,032,014,201,213,208 
003,076,165,014,201,214 
208,003,076,021,015,201 
215,208,003,076,213,028 
201,216,208,003,076,005 
015,201,217,208,003,076 
146,015,201,218,208,003 
076,024,015,201,219,208 
003,076,082,015,201,220 
208,003,076,190,023,201 
221,208,003,076.250,016 
201,222,208,003,076,137 
017,076,235,015,108,160 
003,162,019,169,000,157 
077,010,202,208,250,173 
073,014,141,024,212,032 
124,011,032,065,011,169 
000,141,095,010,032,089 
011,238,095,010,032,089 
011,238,095,010,032,089 
011,076,201,012,173,143 
015,240,018,174,144,015 
172,145,015,189,086,010 



rem 




rem 



79 

84 
89 
76 
70 

85 

83 

84 
93 
83 
91 
87 
99 
76 
78 

85 

83 
96 

91 

84 

80 
83 
89 
95 

92 

86 
91 

108 


DATA 

2901 DATA 
2907 DATA 
2913 DATA 
2919 DATA 
2925 DATA 
2931 DATA 
2937 DATA 
2943 DATA 
2949 DATA 
2955 DATA 
2961 DATA 
2967 DATA 
2973 DATA 
2979 DATA 
2935 DATA 
2991 DATA 
2997 DATA 
3003 DATA 
3009 DATA 
3015 DATA 
3021 DATA 
3027 DATA 
3033 DATA 
3039 DATA 
3045 DATA 
3051 DATA 
3057 DATA 
3063 DATA 




153, 

010 , 

201 , 

010 , 

010 , 

012 , 

080, 

093, 

094, 


083,010,096, 
189,086,010, 
255,240,016, 
189,083,010, 
032,046,012, 
096, 157,077, 
010,096,169, 
010,141,092, 
010,032,115, 
208,011,238, 
095,010,20.1, 
096,201,088, 
255,174,095, 
010,157,083, 
010,076,124, 
065,201,008, 
189,197,011, 
189,206,011, 
076,218,011, 
004,006,007, 
005,006,000, 
004,162,018, 
032,115,000, 
233,048,141, 
001,177,122, 
041,201,035, 
115,000,238, 
022,012,201, 


174,095 
240,020 
141,093 
141,092 
032,131 
010,157 
000,141 
010,141 
000,201 
095,010 
003,208 
208,017 
010,157 
010,157 
011,056 
176,032 
141,093 
141,094 
011,013 
009,000 
001,002 
108,000 
176,246 
092,010 
201,044 
208,009 
093,010 
092,208 


100 

96 

82 

83 

91 

69 

96 
89 
77 

75 

91 
82 

110 

111 

102 

97 

92 
112 

76 

67 
59 
42 

68 

72 
86 

73 
72 
75 
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3069 

3075 

3081 

3087 

3093 

3099 

3105 

3111 

3117 

3123 

3129 

3135 

3141 

3147 

3153 

3159 

3165 

3171 

3177 

3183 

3189 

3195 

3201 

3207 

3213 

3219 

3225 

3231 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


009,032, 

010,076, 

208,202, 

128,141, 

000,174, 

010,157, 

010,157, 

010,157, 

011,173, 

144,007, 

076,081, 

208,003, 

093,010, 

109,093, 

173,002, 

093,010, 

201,013, 

174,095, 

141,093, 

172,095, 

153,080, 

153,077, 

010,096, 

083,010, 

157,083, 

253,083, 

240,010, 

126,077, 


115,000, 

022,012, 

173,093, 

093,010, 

095,010, 

086,010, 

083,010, 

089,010, 

093,010, 

074,141, 

012,174, 

076,081, 

189,244, 

010,141, 

015,240, 

024,109, 

144,008, 

010,254, 

010,174, 

010,189, 

010,189, 

010,138, 

174,095, 

024,125, 

010,169, 

010,144, 

024,094, 

010,136, 


206,093 

201,078 

010,009 

032,115 

173,093 

173,092 

173,094 

076,124 

024,010 

093,010 

093,010 

012,174 

014,024 

093,010 

022,173 

002,015 

233,012 

083,01 

093,01 

169,012 

185,012 

153,08 

010,18 

075,01 

007,05 

014,16 

080,01 

208,246 


rem 

rem 

rem 



78 
81 

76 
81 
82 
87 
94 
81 
80 
67 

77 
87 
84 

83 

79 
74 
77 
72 

84 
84 
99 
96 
99 

89 
76 

90 
83 
69 
87 


3237 

3243 

3249 

3255 

3261 

3267 

3273 

3279 

3285 

3291 

3297 

3303 

3309 

3315 

3321 

3327 

3333 

3339 

3345 

3351 

3357 

3363 

3369 

3375 

3381 

3387 

3393 

3399 

3405 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


096,076,220, 

126.134.142, 
179, 189,200, 
253,255,000, 
024,139,126, 

243.230.143, 
174,080,010, 
097,010,240, 
212,232,240. 
001,212,173, 
000,212,173, 
001,141,004, 
010,240,029, 
240,024,141, 
240,018,202, 
173,078,010, 
173,098,010, 
011,212,234, 
240,029,173, 
024,141,018, 
018,202,142, 
079,010,141, 
099,010,009, 
212,234,032, 
096,010,173, 
003,032,167, 
018,076,017, 
108,000,003, 
000,169,007, 


015,000,119 
150,159, 168 
212,225,238 
124,151,030 
250,006,172 
248,046,255 
240,029, 173 
024,141,004 
018,202,142 
077,010,141 
097,010,009 
212,174,081 
173,098,010 
011,212,232 
142,008,212 
141,007,212 
009,001,141 
174,082,010 
099,010,240 
212,232,240 
015,212,173 
014,212,173 
001,141,018 
031,016,14] 
246,016,240 
017,032,103 
011,162,014 
234,000,000 
032,129,016 



rem 

rem 


rem 



66 

94 

104 

76 

85 


82 

78 

7:5 

85 


66 

70 

82 

79 

79 

90 

73 

82 

81 

87 

76 

89 

82 

86 

67 








cienza 

Tecnologia 






























34li DATA 
3417 DATA 
3423 DATA 
3429 DATA 
3435 DATA 
3441 DATA 
3447 DATA 
3453 DATA 
3459 DATA 
3465 DATA 
3471 DATA 
3477 DATA 
3483 DATA 
3489 DATA 
3495 DATA 
3501 DATA 
3507 DATA 
3513 DATA 
3519 DATA 
3525 DATA 
3531 DATA 
3537 DATA 
3543 DATA 
3549 DATA 
3555 DATA 
3561 DATA 
3567 DATA 
3573 DATA 


141,075, 
140,077, 
032,031, 
009,141, 
017,076, 
015,032, 
014,032, 
011,169, 
072,138, 
099,010, 
010,104, 
013,099, 
173,098, 
098,010, 
013,013, 
010,173, 
141,097, 
205,013, 
097,010, 
023,021, 
225,015, 
128,192, 
032,129, 
142,058, 
032,075, 
078,027, 
016,032, 
014,142, 


013,142, 

013,076, 

016,201, 

073,014, 

017,011, 

031,016, 

239,017, 

005,032, 

072,152, 

041,007, 

170,189, 

010,141, 

010,041, 

104,170, 

098,010, 

097,010, 

010,104, 

013,097, 

032,239, 

076,017, 

000,016, 

096,048, 

016,141, 

014,140, 

014,162, 

076,017, 

129,016, 

061,014, 


076,013 

017,011 

016,176 

032,239 

076,225 

141,072 

076,017 

129,016 

072,173 

141,099 

205,013 

099,010 

007,141 

189,205 

141,098 

041,007 

170,189 

010,141 

017,032 

011,076 

032,064 

169,016 

057,014 

059,014 

000,032 

011,169 

141,060 

140,062 





81 

77 

83 
74 

89 

90 

71 
93 

84 
101 

95 

80 

91 
87 

102 

92 

72 

91 
72 
89 
81 
71 

113 

84 

92 

76 
100 

86 

77 


3579 DATA 
3585 DATA 
3591 DATA 
3597 DATA 
3603 DATA 
3609 DATA 
3615 DATA 
3621 DATA 
3627 DATA 
3633 DATA 
3639 DATA 
3645 DATA 
3651 DATA 
3657 DATA 
3663 DATA 
3669 DATA 
3675 DATA 
3681 DATA 
3687 DATA 
3693 DATA 
3699 DATA 
3705 DATA 
3711 DATA 
3717 DATA 
3723 DATA 
3729 DATA 
3735 DATA 
3741 DATA 
3747 DATA 


014,032,075, 
032,078,027, 
169,016,032, 
063,014,142, 
065,014,032, 
006,032,078, 
011,169,016, 
141,066,014, 
140,068,014, 
162,009,032, 
017,011,000, 
009,009,000, 
000,000,001, 
015,000,162, 
014,141,005, 
010,232,032, 
012,212,141, 
032,110,014, 
141,102,010, 
096,032,072, 
014,010,010, 
060,014,096, 
110,014,141, 
103,010,232, 
141,013,212, 
232,032,110, 
212,141,105, 
017,096,000, 
000,001,169, 


014,162,003 

076,017,011 

129,016,141 

064,014,14 

124,014,16 

027,076,01 

032,129,01 

142,067,01 

032,124,014 

078,027,076 

000,000,009 

000 , 000,000 

001,002,004 

000,032,110 

212,141,100 

110,014,141 

101,010,232 

141,019,212 

032,239,017 

020,189,057 

010,010,029 

162,006,032 

006,212,141 

032,110,014 

141,104,010 

014,141,020 

010,032,239 

001,000,001 

015,032,129 


rem 

rem 



rem 

rem 


rem 

rem 

rem 


rem 

rem 



85 

95 
93 
87 

96 

86 
82 
81 

97 
62 
58 
44 
65 
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>,032,031,016,240,020 


1,004,176,046,170,202 
>,004,029,097,010,157 


,010,032,023,021,076 


,011,173,097,010,041 


1,041,251,141,098,010 


1,099,010,041,251,141 
1,010,032,023,021,076 


',011,076,225,015,076 
',015,000, 000, 000, 032 


,016,240,037,201,004 
1,030,141,144,015,206 


,015,032,115,000,032 

,016,201,004,176,014 


145,015,206,145,015 


1,255,141,143,015,076 

',011,076,230,015,169 


1,141,143,015, 141,144 
.,141,145,015,076,017 


,076,235,015,076,235 
i,076,235,015,076,235 


.,076,235,015,076,235 

1,162,011,108,000,003 


I, 014,108,000,003,162 
1,108,000,003,162,017 


1,000,003,076,017,011 


1, 169,000,141,243,015 
1,115,000,144,012,201 
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4095 DATA 
4101 DATA 
4107 DATA 
4113 DATA 
4119 DATA 
4125 DATA 
4131 DATA 
4137 DATA 
4143 DATA 
4149 DATA 
4155 DATA 
4161 DATA 
4167 DATA 
4173 DATA 
4179 DATA 
4185 DATA 
4191 DATA 
4197 DATA 
4203 DATA 
4209 DATA 
4215 DATA 
4221 DATA 
4227 DATA 
4233 DATA 
4239 DATA 
4245 DATA 
4251 DATA 
4257 DATA 


171,208,228, 
243,015,032, 
036,016,174, 
004,205,128, 
255,024,105, 
000,000,032, 
086,041,015, 
032,065,016, 
029,016,032, 
033,141,030, 
016,176,037, 
160,001,177, 
048,201,009, 
115,000,041, 
173,028,016, 
029,016,172, 
121,175,016, 
030,016,172, 
028,016,024, 
125,172,016, 
128,016,096, 
000,000,000, 
016,032,244, 
141,125,016, 
032,244,015, 
126,016,032, 
244,015,176, 
016,173,125, 


169.128.141 
115,000,03 
243,015,20 
016,096,07 
001,096,00 
115,000,17 
141,028,01 
176,036,141 
065,016,176 
016,032,065 
076,225,015 
122,056,233 
176,005,032 
015,096,234 
096,234,173 
028,016,024 
096,234,173 
029,016,174 
121,175,016 
176,004,205 
076,225,015 
255,141,128 
015,176,241 
032,115,000 

176.230.141 
115,000,032 
219,141,127 
016,174,126 




rem 





70 

104 

60 

87 

85 

77 
60 
79 
89 
89 

78 
96 
81 

88 

79 
106 

91 
96 

93 
78 
87 
95 
60 

86 
67 
86 
70 

92 

94 


4263 

4269 

4275 

4281 

4287 

4293 

4299 

4305 

4311 

4317 

4323 

4329 

4335 

4341 

4347 

4353 

4359 

4365 

4371 

4377 

4383 

4389 

4395 

4401 

4407 

4413 

4419 

4425 

4431 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


016,172, 
100,200, 
040,050, 
050,120, 
141,020, 
173,072, 
088,096, 
208,015, 
185,016, 
041,203, 
049,234, 
000,000, 
000,000, 
008,000, 
000,032, 
201,034, 
000,240, 
Oli,157, 
016,240, 
224,000, 
157,229, 
157,229, 
157,229, 

157.229, 
016,169, 
169,002, 
032,186, 

162.229, 
255,032, 


127,016, 

000,010, 

060,070, 

169,206, 

003,140, 

014,141, 

010,206, 

173,072, 

206,096, 

238,042, 

000,000, 

000,000, 

000,000, 

076,220, 

115,000, 

208,020, 

015,201, 

229,016, 

003,076, 

240,218, 

016,169, 

016,169, 

016,169, 

016,232, 

001,141, 

162,008, 

255,173, 

160,016, 

192,255, 


096,000 

020,030 

080,090 

160,016 

021,003 

185,016 

185,016 

014,141 

010,238 

208,076 

000,000 

000,000 

000,000 

015,162 

240,024 

032,115 

034,240 

232,224 

005,017 

169,044 

080,232 

044,232 

087,232 

142,245 

246,016 

160,002 

245,016 

032,189 

162,002 



71 

90 

92 

104 

no 

114 


86 


101 

96 
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:rem 66 

4605 DATA 032,210,255,173,073,014 

4437 DATA 032,201,255,169,000,032 

:rem 83 

: rem 61 

4611 DATA 032,210,255,173,100,010 

4443 DATA 210,255,169,125,032,210 

: rem 67 

:rem 84 

4617 DATA 032,210,255,173,101,010 

4449 DATA 255,032,110,017,032,239 

: rem 74 

: rem 89 

4623 DATA 032,210,255,173,102,010 

4455 DATA 017,032,061,018,076,017 

:rem 72 

: rem 90 

4629 DATA 032,210,255,173,103,010 

4461 DATA 011,169,030,160,000,133 

:rem 79 

: rem 72 

4635 DATA 032,210,255,173,104,010 

4467 DATA 091,132,090,160,000,177 

: rem 77 

: rem 90 

4641 DATA 033,210,255,173,105,010 

4473 DATA 090,032,210,255,200,208 

:rem 75 

:rem 81 

4647 DATA 032,210,255.173.097,010 

4479 DATA 248,230,091,165,091,201 

: rem 91 

: rem 100 

4653 DATA 032,210,255,173,098,010 

4485 DATA 032,208,240,096,169,001 

: rem 89 

: rem 96 

4659 DATA 032,210,255,173,099,010 

4491 DATA 032,210,255,032,210,255 

: rem 96 

: rem 80 

4665 DATA 032,210,255,096,173,246 

4497 DATA 032,210,255,032,210,255 

:rem 101 

: rem 86 

4671 DATA 016,208,001,096,169,005 

4503 DATA 169,002,032,195,255,032 

:rem 94 

: rem 89 

4677 DATA 032,210,255,173,069,014 

4509 DATA 204,255,169,000,141,246 

: rem 97 

: rem 92 

4683 DATA 032,210,255,173,070,014 

4515 DATA 016,076,017,011,120,173 

: rem 86 

;rem 81 

4689 DATA 032,210,255,173,071,014 

4521 DATA 083,010,032,228,017,010 

: rem 93 

: rem 72 

4695 DATA 032,210,255,169,128,032 

4527 DATA 010,010,010,013,086,010 

: rem 98 

: rem 62 

4701 DATA 210,255,032,210,255,032 

4533 DATA 010,032,210,255,173,084 

:rem 74 

:rem 81 

4707 DATA 210,255,096,096,032,014 

4539 DATA 010,032,228,017,010,010 

: rem 95 

: rem 71 

4713 DATA 022,032,130,018,173,072 

4545 DATA 010,010,013,087,010,010 

:rem 79 

: rem 6 3 

4719 DATA 014,240,005,173,096,010 

4551 DATA 032,210,255,173,085,010 

: rem 6 6 

: rem 82 

4725 DATA 208,243,096,000,000,003 

4557 DATA 032,228,017,010,010,010 

:rem 77 

: rem 71 

4731 DATA 006,009,012,015,016,017 

4563 DATA 010,013,088,010,010,032 

: rem 76 

: rem 68 

4737 DATA 000,032,228,255,208,001 

4569 DATA 210,255,173,096,010,032 

:rem 83 

: rem 93 

4743 DATA 096,168,032,055,019,192 

4575 DATA 210,255,088,096,000,141 

:rem 107 

:rem 95 

4749 DATA 135,206,016,139,057,014 

4581 DATA 227,017,056,169,007,237 

:rem 107 

: rem 105 

4755 DATA 201,015,240,041,254,057 

<587 DATA 227,017,024,096,173,246 

: rem 8 6 

: rem 109 

4761 DATA 014,032,250,026,076,177 

<593 DATA 016,208,001,096,169,003 

: rem 93 

:rem 95 

4767 DATA 018,192,136,208,029,169 

*559 DATA 032,210,255,173,072,014 

:rem 114 

: rem 94 

4773 DATA 000,221,057,014,240,021 


SUPERCOMMOOORE C64 & 128 'BB8 21 





4779 DATA 
4785 DATA 
4791 DATA 
4797 DATA 
4803 DATA 
4809 DATA 
4815 DATA 
4821 DATA 
4827 DATA 
4833 DATA 
4839 DATA 
4845 DATA 
4851 DATA 
4857 DATA 
4863 DATA 
4869 DATA 
4875 DATA 
4881 DATA 
4887 DATA 
4893 DATA 
4899 DATA 
4905 DATA 
4911 DATA 
4917 DATA 
4923 DATA 
4929 DATA 
4935 DATA 
4941 DATA 


222,057,014,032,250,026 
032,086,020,032,225,014 
032,124,014,032,075,014 
032,149,026,096,192,133 
208,014,238,120,018,173 
120,018,041,007,141,120 
018,076,048,019,192,134 
208,018,238,129,018,169 
003,205,129,018,208,079 
169,000,141,129,018,076 
048,019,174,129,018,192 
086,208,032,189,097,010 
041,240,208,005,009,008 
157,097,010,072,041,248 
010,157,057,010,104,041 
006,029,097,010,157,097 
010,032,150,021,096.192 
083,208,012,169,002,093 
097,010,157,097,010,032 
150,021,096,192,082,208 
012,169,004,093,097,010 
157,097,010,032,150,021 
096,032,091,019,032,062 
026,096,174,120,018,189 
121,018,201,01S,176,004 
024,109,129,018,170,096 
131,163,195,227,131,155 
171,187,023,023,023,023 





rem 

rem 


rem 

rem 



74 

92 

86 

82 

110 

88 

76 

104 

106 

100 

96 
113 

107 

83 
104 

84 
112 

88 

97 
101 
102 
104 

84 
90 

108 
80 

106 

100 

85 


4947 

4953 

4959 

4965 

4971 

4977 

4983 

4989 

4995 

5001 

5007 

5013 

5019 

502S 

5031 

5037 

5043 

5049 

5055 

5061 

5067 

5073 

5079 

5085 

5091 

5097 

5103 

5109 

5115 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


172,172, 
232,196, 
079,019, 
071,019, 
129,018, 
006,208, 
007,208, 
021,208, 
007, 169, 
169,012, 
000, 189, 
008,232, 
032,002, 
000,000, 
000,000, 
255,255, 
192,000, 
192,000, 
192,000, 
192,000, 
192,000, 
192,000, 
255,255, 
000,000, 
000,129, 
000,129, 
000,129, 
000,129, 
000,129, 


172,172, 
174,120, 
141,004, 
141,005, 
173,090, 
189,087, 
096,169, 
169,032, 
033, 141, 
141,029, 
161,019, 
224,128, 
021,096, 
000,000, 
000,255, 
255,192, 
003,192, 
003,192, 
003,192, 
003,192, 
003,192, 
003,255, 
255,000, 
000,000, 
000,000, 
000,000, 
000,000, 
000,000, 
000,000, 


216,224 
018,189 
208,189 
208,174 
019,141 
019,141 
012,143 
141,250 
251,007 
208,162 
157,000 
208,245 
100,100 
000,000 
255,255 
000,003 
000,003 
000,003 
000,003 
000,003 
000,003 
255,255 
000,000 
255,000 
129,000 
129,000 
129,000 
129,000 
255,000 



103 

108 

113 
97 

100 

114 

103 

99 

99 

83 

83 

86 

64 

34 

67 

88 

64 

70 

67 

64 

70 

88 

79 

52 

61 

67 

55 

61 






: rem 58 

5289 DATA 034,020,110,035,020,110 

5121 DATA 000,000,000,000,000,000 

: rem 69 

: rem 31 

5295 DATA 036,020,110,037,020,076 

5127 DATA 000,000,000,000,000,000 

: rem 81 

: rem 37 

5301 DATA 120,020,032,187,020,096 

5133 DATA 000,000,000,000,000,000 

:rerc 74 

:rem 34 

5307 DATA 189,038,020,133,091,189 

5139 DATA 000,000,000,000,000,000 

: rem 103 

: rem 40 

5313 DATA 055,020,133,090,160,000 

5145 DATA 000,000,000,000,000,000 

: rem 69 

:rem 37 

5319 DATA 173,032,020,145,090,200 

5151 DATA 000,000,000,000,000,000 

: rem 79 

:rem 34 

5325 DATA 145,090,160,008,173,033 

5157 DATA 000,045,045,047,050,050 

:rem 88 

: rem 79 

5331 DATA 020,145,090,200,145,090 

5163 DATA 052,055,055,057,060,060 

: rem 76 

: rem 88 

5337 DATA 160,016,173,034,020,145 

5169 DATA 062,046,046,047,050,052 

:rem 84 

: rem 94 

5343 DATA 090,200,145,090,160,024 

5175 DATA 240,244,048,240,244,048 

: rem 80 

: rem 96 

5349 DATA 173,035,020,145,090,200 

5181 DATA 240,244,048,240,244,048 

: rem 85 

: rem 93 

5355 DATA 145,090,160,032,173,036 

5187 DATA 144,148,208,082,210,138 

:rem 91 

: rem 100 

5361 DATA 020,145,090,200,145,090 

5193 DATA 072,032,086,020,232,232 

:rem 79 

:rem 84 

5367 DATA 160,040,173,037,020,145 

5199 DATA 232,032,086,020,104,170 

-.rem 87 

: rem 87 

5373 DATA 090,200,145,090,096,162 

5205 DATA 096,160,Ó0O,140,032,020 

: rem 94 

: rem 68 

5379 DATA 000,032,086,020,232,224 

5211 DATA 140,033,020,140,034,020 

:rem 82 

: rem 58 

5385 DATA 018,208,248,169,000,141 

5217 DATA 140,035,020,140,036,020 

: rem 98 

: rem 68 

5391 DATA 129,018,141,120,018,032 

5223 DATA 140,037,020,032,187,020 

:rem 84 

:rem 74 

5397 DATA 091,019,173,129,018,072 

5229 DATA 189,057,014,240,072,168 

:rem 107 

: rem 105 

5403 DATA 169,000,141,129,018,032 

5235 DATA 169,192,141,032,020,136 

:rem 82 

: rem 88 

5409 DATA 150,021,238,129,018,032 

5241 DATA 240,060,056,110,032,020 

: rem 88 

: rem 66 

5415 DATA 150,021,238,129,018,032 

5247 DATA 110,033,020,110,034,020 

:rem 85 

: rem 61 

5421 DATA 150,021,104,141,129,018 

5253 DATA 110,035,020,110,036,020 

:rem 75 

: rem 62 

5427 DATA 032,091,019,096,102,118 

5259 DATA 110,037,020,056,110,032 

: rem 93 

:rem 75 

5433 DATA 126,126,110,102,102,000 

5265 DATA 020,110,033,020,110,034 

:rem 63 

: rem 61 

5439 DATA 253,253,204,204,204,204 

5271 DATA 020,110,035,020,110,036 

-.rem 87 

: rem 62 

5445 DATA 207,207,003,007,015,027 

5277 DATA 020,110,037,020,056,110 

: rem 83 

: rem 72 

5451 DATA 051,099,195,000,016,056 

5283 DATA 032,020,110,033,020,110 

.•rem 94 

: rem 59 

5457 DATA 040,108,068,198,130,000 
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5463 DATA 
5469 DATA 
5475 DATA 
5481 DATA 
5487 DATA 
5493 DATA 
5499 DATA 
5505 DATA 
5511 DATA 
5517 DATA 
5523 DATA 
5529 DATA 
5535 DATA 
5541 DATA 
5547 DATA 
5553 DATA 
5559 DATA 
5565 DATA 
5571 DATA 
5577 DATA 
5583 DATA 
5589 DATA 
5595 DATA 
5601 DATA 
5607 DATA 
5613 DATA 
5619 DATA 
5625 DATA 


000,000, 

000,000, 

102,102, 

118,126, 

000,000, 

000,000, 

102,102, 

096,096, 

000,126, 

096,096, 

008,072, 

189,144, 

147,021, 

010,072, 

041,002, 

169,024, 

251,021, 

104,072, 

162,064, 

022,032, 

240,201, 

000,076, 

208,005, 

021,201, 

016,076, 

208,005, 

021,162, 

160,000, 


000,000, 

000,060, 

102,060, 

126,110, 

000,000, 

000,060, 

102,060, 

120,096, 

096,096, 

000,059, 

136,174, 

021,133, 

133,090, 

160,040, 

208,002, 

141,013, 

160,080, 

041,004, 

169,024, 

251,021, 

128,208, 

249,021, 

162,008, 

032,208, 

249,021, 

162,024, 

032,076, 

189,055, 


000,000 

102,102 

000,102 

102,102 

000,000 

102,102 

000,126 

096,096 

120,096 

060,061 

129,018 

091,189 

189,097 

162,040 

162,064 

022,032 

162,040 

208,002 

141,013 

104,041 

005,162 

201,064 

076,249 

005,162 

201,016 

076,249 

249,021 

021,145 


5631 DATA 090, 
5637 DATA 208, 
5643 DATA 022, 
5649 DATA 141, 
5655 DATA 141, 
5661 DATA 173, 
5667 DATA 173, 
5673 DATA 032, 
5679 DATA 141 
5685 DATA 141, 
5691 DATA 032, 
5697 DATA 096, 
5703 DATA 160, 
5709 DATA 224, 
5715 DATA 032, 
5721 DATA 096, 
5727 DATA 160, 
5733 DATA 224 
5739 DATA 032, 
5745 DATA 096, 
5751 DATA 200, 
5757 DATA 070 
5763 DATA 000, 
5769 DATA 000, 
5775 DATA 000 
5781 DATA 000, 
5787 DATA 000, 
5793 DATA 000, 
5799 DATA 000, 


232,200, 
244,169, 
096,008. 
046,023, 
047,023, 
087,010, 
084,010. 
059,023, 
046,023, 
047,023, 
000,023, 
162,008, 
034,153, 
035,153, 
037,153, 
038,153, 
039,153, 
040, 153, 
042,153, 
043,153, 
192,240, 
022,096, 
000,000, 
000,000, 
255,000, 
000,000, 
255,000, 
000,000, 
255,000, 


206,013,022 
008,141,013 
173,086,010 
173,083,010 
032,048,023 
141,046,023 
141,047,023 
173,08B,010 
173,085,0X0 
032,059,023 
032,066,022 
160,000,189 
160,034,189 
224,035,189 
032,037,189 
096,038,189 
160,039,189 
224,040,189 
032,042,189 
096,043,232 
240,003,076 
000,000,000 
000,000,000 
000,000,000 
000,000,255 
255,000,000 
000,000,255 
000 , 000,000 
000,000,255 
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Piccola guida 
per l'input 
dei programmi 


■ programmi in BASIC listati su SUPER- 
COMMODORE contengono una particola¬ 
re codifica dei caratteri di controllo (cursore, 
colore, reverse, eccetera) che permette di ot¬ 
tenere una maggiore leggibilità dei pro¬ 
grammi. 

Generalmente, questi listati contengono alcu¬ 
ni caratteri racchiusi tra parentesi graffe { }; 
queste ultime, che non esistono sulla tastiera 
del computer, non devono essere digitate, 
ma hanno unicamente lo scopo di indicare 
che i caratteri da esse racchiusi sono dei ca¬ 
ratteri di controllo. 

Ad esempio. {GIU'} indica che occorre pre¬ 
mere una volta il tasto di cursore verso il bas¬ 
so, {3 GIU'} indica che il tasto di cursore ver¬ 
so il basso dovrà essere premuto tre volte. 

Se tra le parentesi graffe è racchiuso un sin¬ 
golo carattere, quest’ultimo deve essere pre¬ 
muto insieme al tasto CTRL (ad esempio, in¬ 
contrando {A} si dovrà premere il tasto CTRL 


insieme al tasto A). 

Invecé i caratteri racchiusi tra parentesi qua¬ 
dre e simboli di maggiore e minore [< >] de¬ 
vono essere premuti unitamente al tasto 
Commodore (nell'angolo inferiore sinistro 
della tastiera). Ad esempio, [<A>] indica che 
deve essere premuto il tasto Commodore in¬ 
sieme al tasto A. 

Infine, alcuni caratteri racchiusi dalle parente¬ 
si graffe preceduti dalle lettere SH: ciò indica 
che il carattere seguente deve essere 
digitato tenendo premuto il tasto SHIFT. 

La tabella seguente riporta, per ogni caratte¬ 
re di controllo, la codifica utilizzata nei nostri 
listati. 

I listati in linguaggio macchina (totalmente nu¬ 
merici) non possono invece essere copiati di¬ 
rettamente con il computer, ma richiedono l'u¬ 
tilizzo dello speciale programma MLX, riporta¬ 
to, insieme alle istruzioni per il suo utilizzo, in 
altra parte della rivista. 
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5805 DATA 
5811 DATA 
58H DATA 
5823 DATA 
5829 DATA 
5835 DATA 
5841 DATA 
5847 DATA 
5853 DATA 
5859 DATA 
5865 DATA 
5871 DATA 
5877 DATA 
5883 DATA 
5889 DATA 
5895 DATA 
5901 DATA 
5907 DATA 
5913 DATA 
5919 DATA 
5925 DATA 
5931 DATA 
5937 DATA 
5943 DATA 
5949 DATA 
5955 DATA 
5961 DATA 
5967 DATA 


000,000,000,255,000,000 
000,255,000,000,000,255 
000 , 000 , 000 , 000 , 000,000 
000 , 000 , 000 , 000 , 000,000 
000 , 000 , 000 , 000 , 000,000 
000,000,000,000,000,255 
000,000,000,255,000,000 
000,255,000,000,000,255 
000,000,000,255,000,000 
000,000,000,000,000,255 
000,000,000,255,000,000 
000,255,000,000,000,255 
000,000,000,255,000,000 
000,000,000,000,000,169 
035,160,136,133,091,132 
090,160,000,162,000,189 
192,022,145,090,232,200 
192,008,208,245,160,000 
230,091,024,165,090,105 
064,144,002,230,091,133 
090,224,064,240,003,076 
012,023,096,000,000,162 
063,189,128,022,157,192 
022,202,208,247,174,046 
023,232,189,164,023,201 
016,176,084,141,189,023 
174,047,023,189,180,023 
201,064,176,071,024,109 



76 

52 

61 

43 

40 

46 

55 

52 

70 

55 

61 

58 

67 

61 

62 

100 

92 

81 

91 
88 
89 

92 
72 

113 

96 

98 

108 

103 

100 


5973 

5979 

5985 

5991 

5997 

6003 

6009 

6015 

6021 

6027 

6033 

6039 

6045 

6051 

6057 

6063 

6069 

6075 

6081 

6087 

6093 

6099 

6105 

6111 

6117 

6123 

6129 

6135 

6141 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


189,023,141,189,023,169 
064,024,237,189,023,170 
142,000,192,224,056,176 
050,169,255,224,035,208 
003,141,228,022,224,012 
176,017,141,204,022,224 
008,176,010,141,200,022 
224,004,176,003,141,196 
022,160,000,185,155,023 
029,192,022,157,192,022 
192,008,240,005,232,200 
076,136,023,096,015,031 
031,015,001,001,001,001 
001,016,016,016,000,000 
002,002,004,006,006,008 
008,010,010,012,012,064 
000,014,028,042,056,064 
064,064,000,169,000,141 
096,010,173,024,208,141 
024,208,041,240,009,008 
141,024,208,173,017,208 
009,032,041,239,141,017 
208,160,117,162,000,169 
012,157,000,004,157,200 
004,169,118,157,144,005 
157,088,006,157,032,007 
232,224,200,208,232,032 
058,024,169,032,160,000 
133,091,132,090,169,000 






rem 

rem 

rem 




114 

111 

101 

105 

88 

77 

72 

85 

72 

93 

74 

93 

51 

56 

68 

63 

85 
82 

86 
87 
91 

93 
85 
66 

94 
94 
79 
84 







: rem 82 

6315 DATA 057,024,208,226,096,195 

6147 DATA 160,000,145,090,200,208 

: rem 105 

:rem 78 

6321 DATA 003,224,006,208,003,173 

6153 DATA 251,230,091,169,064,197 

: rem 75 

:rem 103 

6327 DATA 176,024,224,026,208,003 

6159 DATA 091,240,005,169,000,076 

: rem 89 

:rem 93 

6333 DATA 173,176,024,096,200,045 

6165 DATA 005,024,032,122,019,032 

:rem 94 

: rem 7 6 

6339 DATA 065,084,084,038,080,085 

6171 DATA 050,025,162,000,160,000 

:rem 110 

: rem 65 

6345 DATA 076,083,069,000,200,050 

6177 DATA 024,032,240,255,032,238 

: rem 86 

: rem 90 

6351 DATA 068,069,067,000,024,050 

6183 DATA 026,032,062,026,032,157 

: rem 90 

: rem 87 

6357 DATA 084,069,077,080,079,000 

6189 DATA 026,173,017,208,009,016 

: rem 108 

: rem 99 

6363 DATA 200,055,083,085,083,000 

6195 DATA 141,017,208,076,017,011 

: rem 87 

:rem 90 

6369 DATA 152,052,086,079,076,000 

6201 DATA 000,162,000,169,003,160 

: rem 104 

: rem 6 6 

6375 DATA 200,060,082,069,076,000 

6207 DATA 009,140,057,024,032,145 

: rem 89 

:rem 84 

6381 DATA 024,055,075,069,089,000 

6213 DATA 024,162,020,169,003,160 

:rem 100 

: rem 77 

6387 DATA 192,058,086,079,073,067 

6219 DATA 029,140,057,024,032,145 

: rem 124 

-.rem 89 

6393 DATA 069,032,049,000,000,060 

6225 DATA 024,162,000,169,003,157 

: rem 82 

:rem 84 

6399 DATA 086,079,073,067,069,032 

6231 DATA 174,006,157,214,006,157 

: rem 122 

: rem 91 

6405 DATA 050,000,064,061,086,079 

6237 DATA 254,006,157,038,007,157 

:rem 89 

: rem 101 

6411 DATA 073,067,069,032,051,000 

6243 DATA 078,007,157,118,007,157 

:rem 83 

: rem 102 

6417 DATA 192,057,087,065,086,069 

6249 DATA 158,007,157,198,007,032 

:rem 119, 

:rem 107 

6423 DATA 032,083,089,078,067,032 

6255 DATA 178,024,232,224,009,208 

:rem 103 

-.rem 96 

6429 DATA 082,073,078,071,000,176 

6261 DATA 224,162,013,169,002,157 

: rem 100 

:rem 89 

6435 DATA 033,083,079,085,078,068 

6267 DATA 176,007,157,096,007,157 

:rem 115 

: rem 112 

6441 DATA 032,069,068,073,084,079 

6273 DATA 136,007,202,016,244,162 

: rem 109 

: rem 87 

6447 DATA 082,000,000,120,165,001 

6279 DATA 012,169,124,157,054,004 

:rem 69 

: rem 98 

6453 DATA 041,251,133,001,169,034 

6285 DATA 202,016,250,096,157,150 

: rem 8 4 

: rem 95 

6459 DATA 160,025,133,251,132,252 

6291 DATA 005,157,190,005,157,230 

: rem 90 

: rem 91 

6465 DATA 032,197,025,169,193,160 

6297 DATA 005,157,014,006,157,054 

:rem 108 

: rem 97 

6471 DATA 024,133,251,132,252,032 

6303 DATA 006,157,094,006,157,134 

: rem 81 

: rem 9 3 

6477 DATA 197,025,169,205,160,024 

6309 DATA 006,032,178,024,232,236 

: rem 106 

: rem 91 

6483 DATA 133,251,132,252,032,197 


SUPERCOMMOOORE C64 S 128 -IRTO 27 









6489 DATA 
6495 DATA 
6501 DATA 
6507 DATA 
6513 DATA 
6519 DATA 
6525 DATA 
6531 DATA 
6537 DATA 
6543 DATA 
6549 DATA 
6555 DATA 
6561 DATA 
6567 DATA 
6573 DATA 
6579 DATA 
6585 DATA 
6591 DATA 
6597 DATA 
6603 DATA 
6609 DATA 
6615 DATA 
6621 DATA 
6627 DATA 
6633 DATA 
6639 DATA 
6645 DATA 
6651 DATA 


025,169, 

251,132, 

169,231, 

132,252, 

243.160, 
252,032, 
160,024, 
032,197, 
025,133, 
197,025, 

133.251, 
025,169, 
251,132, 
169,225, 

132.252, 

211.160, 
252,032, 
009,004, 
160,000, 
200,177, 
177,251, 
025,076, 
049,025, 
026,201, 
209,142, 
208,014, 
090,144, 
090,076, 


219.160, 
252,032, 
160,024, 
032,197, 
024,133, 
197,025, 

133.251, 
025,169, 

251.132, 
169,017, 

132.252, 

237.160, 
252,032, 
160,024, 
032,197, 
024,133, 
197,025, 
133,001, 
177,251, 

251.133, 
240,006, 
209,025, 
162,208, 
064,176, 
018,026, 
024,169, 
002,230, 
028,026, 


024,133 

197,025 

133.251 
025,169 
251,132 
169,253 

132.252 
007,160 
252,032 
160,025 
032,197 
024,133 
197,025 
133,251 
025,169 
251,132 
165,001 
088,096 
133,090 
091,200 
032,220 
096,140 
142,018 
005,162 
201,038 
112,101 
091,133 
201,092 



rem 


rem 


rem 

rem 



95 
104 

98 

84 
100 

80 

107 

83 

96 

85 
102 


92 

99 

103 

87 

97 
95 
95 
81 
87 

98 
92 
92 


85 

94 


6657 

6663 

6669 

6675 

6681 

6687 

6693 

6699 

6705 

6711 

6717 

6723 

6729 

6735 

6741 

6747 

6753 

6759 

6765 

6771 

6777 

6783 

6789 

6795 

6801 

6807 

6813 

6819 

6825 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


208,007,169,216,141,018 
026,169,002,010,010,01 
170,160,000,189,000,20 
145,090,232,200,192,00 
208,245,024,169,008,10 
090, 144,002,230,091,13 
090,172,049,025,200,09 
157,005,061,006,221,00 
125,007,177,005,081,00 
161,006,02S,007,000,04 
080,032,058,024,173,12 
018,201,007,208,001,09 
010,170,189,043,026,13 
090,189,044,026,133,091 
173,120,018,160,000,201 
005,176,007,172,129,01 
185,059,026,168,173,17 
024,145,090,200,145,09 
096,072,055,067,071,06 
065,069,066,070,067,07 
066,069,065,068,071,06 
067,067,067,032,032,03 
032,032,032,035,035,03 
092,092,092,092,092,09 
032,032,032,032,173,12 
018,201,007,240,001,09 
120, 165,001,041,251, 13 
001,173,110,026,133,09 
173,111,026,133,091,174 




103 

72 
92 
94 
96 
91 

102 

94 
90 
69 
89 
85 

95 
103 

73 
103 
120 

95 

115 

108 

122 

100 

88 

115 

71 

84 

76 

84 
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: rem 94 

6999 DATA 250,026,096,166,122,160 

6831 DATA 074,014,189,112,026,032 

:rera 110 

:rem 91 

7005 DATA 004,132,015,189,000,002 

6837 DATA 220,025,174,074,014,189 

: rem 70 

:rem 103 

7011 DATA 016,007,201,255,240,062 

6843 DATA 130,026,032,220,025,165 

: rem 74 

:rem 83 

7017 DATA 232,208,244,201,032,240 

6849 DATA 001,009,004,133,001,088 

: rem 78 

:rem 87 

7023 DATA 055,133,008,201,034,240 

6855 DATA 032,028,029,096,000,232 

:rem 75 

: rem 94 

7029 DATA 085,036,015,112,045,201 

6861 DATA 040,104,232,040,104,232 

: rem 8 4 

:rem 75 

7035 DATA 063,208,004,169,153,208 

6867 DATA 040,104,232,040,104,136 

: rem 95 

:rero 84 

7041 DATA 037,201,048,144,004,201 

6873 DATA 200,008,136,008,044,046 

: rem 75 

: rem 92 

7047 DATA 060,144,029,132,113,160 

6879 DATA 047,049,051,052,054,056 

:rem 84 

:rem 109 

7053 DATA 000,132,011,136,134,122 

6885 DATA 057,059,061,062,045,046 

: rem 68 

: rem 109 

7059 DATA 202,200,232,189,000,002 

6891 DATA 048,050,053,234,162,000 

: rem 76 

:rem 89 

7065 DATA 056,249,158,160,240,245 

6897 DATA 032,250,026,232,224,017 

:rem 104 

: rem 95 

7071 DATA 201,128,208,047,005,011 

6903 DATA 208,248,096,142,203,026 

: rem 79 

: rem 99 

7077 DATA 164,113,232,200,153,251 

6909 DATA 189,204,026,133,090,189 

: rem 85 

:rem 112 

7083 DATA 001,201,000,240,056,056 

6915 DATA 221,026,133,091,120,165 

: rem 72 

:rem 88 

7089 DATA 233,058,240,004,201,073 

6921 DATA 001,041,251,133,001,169 

: rem 90 

: rem 78 

7095 DATA 208,002,133,015,056,233 

6927 DATA 209,141,018,026,174,203 

:rem 87 

:rem 97 

7101 DATA 085,208,160,133,008,189 

6933 DATA 026,189,057,014,201,010 

: rem 94 

: rem 90 

7107 DATA 000,002,240,224,197,008 

6939 DATA 176,019,169,000,032,255 

: rem 78 

:rem 106 

7113 DATA 240,220,200,153,251,001 

6945 DATA 025,174,203,026,189,057 

: rem 64 

:rem 108 

7119 DATA 232,208,240,166,122,230 

6951 DATA 014,009,048,032,255,025 

:rem 86 

:rem 93 

7125 DATA 011,200,185,157,160,016 

6957 DATA 076,067,027,169,049,032 

:rem 82 

: rem 118 

7131 DATA 250,185,158,160,208,181 

6963 DATA 255,025,056,174,203,026 

:rem 96 

:rem 101 

7137 DATA 240,015,189,000,002,016 

6969 DATA 189,057,014,233,010,009 

:rero 79 

: rem 105 

7143 DATA 189,153,253,001,198,123 

6975 DATA 048,032,255,025,165,001 

: rem 99 

:rem 98 

7149 DATA 169,255,133,122,096,160 

6981 DATA 009,004,133,001,088,174 

: rem 105 

:rem 95 

7155 DATA 000,185,029,028,208,002 

6987 DATA 203,026,096,032,250,026 

: rem 87 

:rem 100 

7161 DATA 200,232,189,000,002,056 

6993 DATA 232,032,250,026,232,032 

: rem 77 

: rem 88 

7167 DATA 249,029,028,240,245,201 






: rem 99 

7341 DATA 008,001,000,011,009,014 

7173 DATA 128,208,004,005,011,208 

: rem 62 

:rem 82 

7347 DATA 012,010,004,013,000,009 

7179 DATA 153,166,122,230,Oli,200 

: rem 64 

:rem B2 

7353 DATA 000,007,010,00B,006,011 

7185 DATA 185,028,028,016,250,185 

: rem 64 

:rem 105 

7359 DATA 000,008,072,076,108,110 

7191 DATA 029,028,208,224,240,198 

:tem 87 

:rem 10 3 

7365 DATA 126,127,129,145,147,179 

7197 DATA 077,085,311,079,067,084 

:rem 113 

: rem 11 8 

<371 DATA 183,247,255,000,000,000 

7203 DATA 065,086,197,086,079,073 

: rem 77 

: rem 13t 

7377 DATA 000,076,220,015,032,115 

7209 DATA 067.197,086,079,204,083 

: rem 81 

s rem 117 

7383 DATA 000,201,065,144,246,201 

7215 DATA 080,069,069,196,065,084 

:rem 81 

: rem 114 

7389 DATA 072,176,242,041,007.141 

7221 DATA 212,083,085,211,068,069 

:rem 98 

: rem 9 6 

7395 DATA 074,014,160,001,177,122 

7227 DATA 195,082,069,204,080,085 

: rem 90 

: rem 107 

7401 DATA 201,092,208,014,173,074 

7233 DATA 076,083,197,070,073,076 

:rem 65 

;rem 108 

7407 DATA 014,009,008,141,074,014 

7239 DATA 084,069,210,075,069,217 

: rem 84 

:rem 110 

7413 DATA 032,115,000,076,010,029 

7245 DATA 083,072,073,070,212,070 

: rem 74 

:rem 89 

7419 DATA 201,035,208,011,173,074 

7251 DATA 079,076,076,079,215,083 

:rem 88 

: rem 114 

7425 DATA 034,009,016,143,074,014 

7257 DATA 089,078,195,082,073,078 

: rem 83 

: rem 125 

7431 DATA 032,115,000,174,074,014 

7263 DATA 139,083,067,082,069,069 

:rem 77 

: rem 123 

7437 DATA 189,167,028,141,074,014 

7269 DATA 206,087,082,073,084,197 

: rem 107 

: rem 118 

7443 DATA 032,028,029,032,157,026 

7275 DATA 075,073,076,204,000,016 

: rem 92 

: rem ?) 

7449 DATA 076,017,011,174,074,014 

7281 DATA 015,036,015,048,011,201 

: rem 97 

: rem 7g 

7455 DATA 189,191,028,141,166,028 

7287 DATA 255,240, "',201,204,176 

; rem 111 

:rem 94 

7461 DATA 141,365,028,162,013,169 

7293 DATA 006,076,036,16',C76,243 

: rem 97 

:rem 107 

7467 DATA 000,157,244,014,202,208 

7299 DATA 166,056,233,203,170,132 

:rem 88 

: rem 100 

■■473 DATA 250,169,001,162,013,024 

7305 DATA 073,160,255,202,240,008 

: rem 86 

: rem 84 

7479 DATA 014,165,028,144,002,169 

7311 DATA 200,185,029,028,016,250 

:rem 103 

: rem 8 5 

7485 DATA 255,078,165,028,024,078 

7317 DATA 048,245,200,185,029,028 

:rem 116 

-.rem ICO 

7491 DATA 165,028,144,003,157,244 

7323 DATA 048,005,032,071,171,208 

: rem 100 

:rem Sf 

7497 DATA 014,202,202,024,078,165 

7329 DATA 245,076,239,166,000,000 

: rem 95 

: rem 94 

7503 DATA 028,144,003,157.244,014 

7335 DATA 000,003,005,000,002,004 

:rem 87 

: rem 54 

7509 DATA 202,202,024,078,165,028 
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: rem 94 

7683 DATA 003,201,049,208,023,169 

7515 DATA 144,003,157,244,014,202 

: rem 96 

:rem 84 

7689 DATA 090.160,125,141,020,003 

7521 DATA 202,024,078,165,028,144 

: rem 87 

:rem 93 

7695 DATA 140,021,003,169,127,160 

7527 DATA 003,157,244,014,202,024 

:rem 93 

:rem 84 

77C1 DATA 000,133,252.132,251,032 

7533 DATA 078,165,028,144,003,157 

: rem 72 

: rem 102 

7707 DATA 074,125,088,096,169,049 

7539 DATA 244,014,202,202,024,078 

:rem 122 

: rem 90 

7713 DATA 160,234,141,020,003,140 

7545 DATA 165,028,144,003,157,244 

: rem 72 

: rem 100 

7719 DATA 021.003,088,096,024,014 

7551 DATA 014,202,202,024,078,165 

: rem 94 

:rem 86 

7725 DATA 007,007,032,009,000,024 

7557 DATA 028,144,003,157,244,014 

: rem 77 

: rem 96 

7731 DATA 014,007,007,032,009,000 

7563 DATA 096,008,173,092,008,032 

: rem 73 

: rem 101 

7737 DATA 024,014,007,007,032,009 

7569 DATA 184,031,206,114,008,032 

: rem 85 

: rem 93 

7743 DATA 000,000,000,000,015,000 

7575 DATA 126,039,238,111,008,169 

:rem 49 

: rem 107 

7749 DATA 003,015,032,032,032,162 

7581 DATA 064,045,116,008,240,019 

:rem 82 

: rem 94 

7755 DATA 000,189,043,125,157,000 

7587 DATA 173,115,008,240,014,173 

:rem 92 

.-rem 97 

7761 DATA 212,232,224,025,208,245 

7593 DATA 077,008,013,078,008,240 

: rem 91 

:rem 101 

7767 DATA 096,004,004,206,089,125 

7599 DATA 006,032,032,028,032,126 

:rem 105 

:rem 92 

7773 DATA 208,019,173,069,125,141 

7605 DATA 039,238,114,008,162,086 

: rem 106 

:rem 102 

7779 DATA 089,125,206,088,125,208 

7611 DATA 032,094,040,206,114,008 

:rem 119 

:rem 81 

7785 DATA 008,169,004,141,088,125 

76X7 DATA 076,173,039,173,006,009 

:rem 107 

: rem 105 

7791 DATA 032,117,125,076,049,234 

7623 DATA 141,113,008,173,113,008 

:rem 103 

: rem 83 

7797 DATA 160,000,177,251,041,001 

7629 DATA 208,020,169,004,045,116 

:rem 88 

: rem 95 

7803 DATA 240,004,076,091,126,096 

7635 DATA 008,240,012,173,127,008 

: rem 97 

: rem 89 

7809 DATA 032,045,126,173,007,126 

7641 DATA 041,032,240,024,173,116 

: rem 96 

: rem 81 

7815 DATA 240,030,173,071,125,141 

7647 DATA 008,016,019,096,173,116 

:rem 85 

: rem 105 

7821 DATA 004,212,173,007,126,201 

7653 DATA 008,041,016,240,248,169 

:rem 79 

: rem 99 

7827 DATA 255,240,017,141,001,212 

7659 DATA 000,141,024,009,141,025 

trem 84 

: rem 8 3 

7833 DATA 173,008,126,141,000,212 

7665 DATA 009,141,026,009,173,004 

: rem 82 

: rem 93 

7839 DATA 173,071,125,009,001,141 

7671 DATA 009,133,006,173,005,009 

: rem 92 

: rem 90 

7845 DATA 004,212,200,032,045,126 

7677 DATA 133,007,173,120,173,020 

* rem 80 

: rem 90 

7351 DATA 173,007,126,240,030,173 
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7857 DATA 
7863 DATA 
7869 DATA 
7875 DATA 
7881 DATA 
7887 DATA 
7893 DATA 
7899 DATA 
7905 DATA 
7911 DATA 
7917 DATA 
7923 DATA 
7929 DATA 
7935 DATA 
7941 DATA 
7947 DATA 
7953 DATA 
7959 DATA 
7965 DATA 
7971 DATA 
7977 DATA 
7983 DATA 
7989 DATA 
7995 DATA 
8001 DATA 
8007 DATA 
8013 DATA 
8019 DATA 


072,125,141,011,212,173 
007,126,201,255,240,017 
141,008,212,173,008,126 
141,007,212,173,072,125 
009,001,141,011,212,200 
032,045,126,173,007,126 
240,030,173,073,125,141 
018,212,173,007,126,201 
255,240,017,141,015,212 
173,008,126,141,014,212 
173,073,125,009,001,141 
018,212,200,177,251,141 
088,125,024,165,251,105 
004,144,002,230,252,133 
251,096,000,000,000,119 
126,134,142,150, 159,168 
179,189,200,212,225,238 
253,255,255,255,000,124 
151,030,024,139,126,250 
006,172,243,230,143,248 
046,255,255,255,177,251 
074,072,041,015,170,189 
009,126,141,007,126,240 
029,201,255,240,025,189 
027,126,141,008,126,104 
074,074,074,074,170,240 
010,024,078,007,126,110 
008,126,202,208,246,096 


rem 

rem 


rem 


rem 

rem 



rem 


rem 

rem 

rem 

rem 



90 

90 

91 
99 
95 
71 

102 

93 

99 


91 

88 

105 

82 

77 

109 

110 

105 

94 
98 

121 

106 
101 
109 

77 

95 
74 
98 


8025 DATA 
8031 DATA 
8037 DATA 
8043 DATA 
8049 DATA 
8055 DATA 
8061 DATA 
8067 DATA 
B073 DATA 
8079 DATA 
8085 DATA 
8091 DATA 
8097 DATA 
8103 DATA 
8109 DATA 
8115 DATA 
8121 DATA 
8127 DATA 
8133 DATA 
8139 DATA 
8145 DATA 
8151 DATA 
8157 DATA 
8163 DATA 
8169 DATA 
8175 DATA 
8181 DATA 
8187 DATA 


104,096,177,251,201,001 
240,011,201,003,240,018 
201,005,208,003,076,199 
126,169,127,160,000,133 
252,132,251,076,117,125 
200, 177,251, 141,069, 125 
200,177,251,141,070,125 
200,177,251,141,005,212 
200,177,251,141,012,212 
200,177,251,141,019,212 
200,177,251,141,006,212 
200,177,251,141,013,212 
200,177,251,141,020,212 
200,177,251,141,071,125 
200,177,251,141,072,125 
200,177,251,141,073,125 
169,012,024,101,251,144 
002,230,252,133,251,076 
117,125,200,177,251,141 
003,212,200,177,251, 141 
010,212,200,177,251,141 
017,212,200,177,251,141 
002,212,200,177,251,141 
009,212,200,177,251,141 
016,212,169,007,024,101 
251,144,002,230,252,133 
251,076,117,125,072,074 
074,074,074,032,004,000 



rem 

rem 


rem 

rem 




92 

85 


81 


78 

84 

85 
82 
77 


85 

89 

83 

98 

88 







20 GOSUB 620:REM CANCELLARE LE 2 LINEE SE 
GUENTI PRIMA DI COMPILARE treni 152 
30 REM SCREEN treni 7 

40 REM WRITE-PERELISA.EXE” :REM COMPILA CO 
ME "PERELISA.EXE" treni 108 

50 SPEED 8:FOLLOW OtOCTAVE 0,0,0:rem 47 
60 ATT 2,2,1 :SUSO,0,0 : DEC10,10,10:REL4,4, 
4 trem 235 

70 VOICE3,3,3:PULSE8,8,8 trem 145 

80 KEY C trem 148 

90 POR J-l TO 2 trem 221 

100 FOR 1-1 TO 2 trem 4 

110 MUSE5,,,2:MUS,D5#,,2:MUSE5,,,2:MOS,D5 
#,,2 : rem 24 

120 MOSES,, ,2:MUS,B4, , :':MUSD5,, ,2:MUS,C5, 
,2 trem 206 

130 MUSA4,,A2,2 trem 39 

140 MUS,E3,,2:MUS,,A3,2 trem 17 

150 MUS,C4,,2:MUSE4,,,2:MUS,A4,,2:MUSB4,, 
E2,2 trem 66 

160 MOS,E3,,2:MUS,,G3#,2 trem 60 

170 MUS,E4,,2:MUSG4#,,,2:MOS, B4, , 2 

trem 154 

180 MUS C5,,A2,2:MUS,E3,,2:MUS,,A3,2 

: rem 229 

190 MUS ,E4,,2 trem 190 

200 MOSES,,,2:MUS,D5I,,2:MOSE5,,,2:MUS,D5 
I,,2 trem 24 

210 MUSE5,,,2:MUS,B4,,2 tMUSDS,,,2:MUS,C5, 
,2 trem 206 

220 MUSA4,,A2,2 tMUS,E3,,2:MUS,,A3,2 

trem 221 

230 MUS , C4, , 2 : MUSE4,, , 2 : MUS, A4, , 2 : MUSB4, , 
E2,2 trem 65 

240 MUS,E3,,2:MUS,,G3#,2 trem 59 

250 MUS,E4,,2 tMUSCS,,,2 tMUS,B4,,2 

trem 115 

260 IP 1-2 THEN280 trem 168 

270 MUSA4,,A2,2 tMUS,E3,,2 tMUS,,A3,2tMUS,X 
,X,2 :NEXT trem 240 

280 MUSA4,,A2,2 :MUS,E3,,2 :MUS,,A3,2 :MUSB4 
,,,2tMUS,C5,,2 tMUSDS,,,2 trem 249 

290 MUSE5,,C3,2 tMUS,G3,,2 tMUS,,C4,2 

trem 241 

300 MUS,G4,,2 tMUSF5,,,2 tMUS,E5,,2 

trem 120 

310 MUSD5,,G2,2 tMUS,G3,, 2 :MUSB3,,, 2 


trem 234 

320 MUS, F4,,2:MUSE5,,,2 tMUS,DS,,2 

trem 119 

330 MUSC5,,A2,2 tMUS,E3,,2 tMUS,,G3,2 

: rem 232 


340 MUS,E4,,2 tMUSDS,,,2:MUS,C5,,2 

trem 118 

350 MUSB4,,E2,2 tMUS,E3,,2 tMUS,,E4,2 

: rem 235 

360 MUSE5,,,2 tMUS,E5,,2 tMUS,,E4,2 tMUS,E5, 
,2:MUSE5,,,2 tMUS,E6,,2 trem 153 

370 MUS,,D5#,2 tMUS,E5,,2 tMUSDS#,,,2 :MUS,E 
5,, 2 trem 32 

380 MUSD5#,,,2tMUS,,E5,2: trem 123 

390 : trem 214 

400 MUS,D5#,,2 trem 219 

410 REM trem 121 

420 FOR I-i TO 2 trem 9 

430 MUSE5,,,2tMUS,B4,,2tMUSDS,,,2:MUS,C5, 
,2 trem 210 

440 MUSA4,,A2,2 trem 43 

450 MUS,E3,,2tMUS,,A3,2 trem 21 

460 MUS,C4,,2:MUSE4,,,2tMUS,A4,,2:MUSB4,, 
E2,2 trem 70 

470 MUS,E3,,2tMUS,,G3#,2 trem 64 

480 MUS,£4,,2:MUSG4#,,,2tMUS,B4, ,2 

trem 158 

490 MUS C5,,A2,2 tMUS,E3,,2 tMUS,,A3,2 

trem 233 

500 MUS ,E4,,2 trem 185 

510 MOSE5,,, 2 :MUS,.D5#,, 2 :MUSE5,,, 2 :MUS,D5 
#,,2 trem 28 

520 MUSE5,,,2tMUS,B4,,2 :MUSD5,,,2 tMUS,C5, 
,2 trem 210 

530 MUSA4,,A2,2 tMUS,E3,,2 tMUS,,A3,2 

trem 225 

540 MUS,C4,,2:MUSE4,,,2tMUS,A4,,2:MUSB4,, 
E2,2 trem 69 

550 MUS,E3,,2tMUS,,G3I,2 trem 63 

560 MUS.E4,,2tMUSCS,,,2tMUS,B4,,2 

570 IF 1-2 THEN 590 trem 176 

580 MUSA4,,A2,2 tMUS,E3,,2:MUS,,A3,2 tMUS,X 
,X,2 tNEXT trem 244 

590 MUSA4,,A2,8tMUSX,X,X,8 trem 42 

600 OCTAVE1,1,0:NEXTJ trem 5 

610 END : REM KILLtEND trem 201 

620 POKE53281,6:POKE53280,6:PRINT"(CLR) 

(CYN){ 3 SPAZIISUPERCOMMODORE 
I 11 SPAZI)PRESENTA " trem 204 

630 PRINTTAB(11)"BASMUSIC( 8 SPAZI)CON 

( 7 GIU')" trem 162 

640 PRINTTAB(14)"PER ELISA" trem 77 

650 PRINT:PRINTtPRINTtPRINT:PRINT:PRINT 

: rem 11 
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di F.Bentley 

trad. e adatt. di P.Ferrarl 


Il programma Sketch Pad che abbiamo 
pubblicato in uno scorso numero di Su- 
perCommodore ha riscosso un grande 
successo presso i lettori: esso era intatti 
anche a nostro parere il miglior program¬ 
ma di grafica per C64 fino ad ora pubblica¬ 
to. Questa nuova e più potente versione 
del programma consente di ottenere pro¬ 
prio tutto dal chip grafico del C64 : aggiun¬ 
ge infatti ai consueti comandi di Sketch 
Pad ulteriori sette opzioni che integrano e 
potenziano le precedenti. 

E' richiesto l'utilizzo del disk drive. 

Sketch Pad Plus è un velocissimo pro¬ 
gramma che vi permette di creare imma¬ 
gini a colori in alta risoluzione. Utilizzando 
la pagina grafica del C64. dotata di una 
risoluzione di 320x200 punti.'ed attraver¬ 
so un completo set di istruzioni grafiche, 
potrete generare disegni e grafici di alta 
qualità e salvarli quindi su disco o stam¬ 
parli con una stampante Commodore 
1526 oMPS 802. 

Per attivare Sketch Pad Plus, caricate ed 
attivate il primo programma 
"SKETCH+#1" (leggere le note per l’uso 
del programma in fondo all’articolo). Il 
menu principale offre molte e diverse 
funzioni, due delle quali selezionabili tra¬ 
mite i tasti funzione, mentre le rimanenti 
sono selezionabili tramite il joystick: 

FI SKETCH 
F7 PRINT 


PAINT COLOR 
BACKGROUND COLOR 
SAVE SKETCH 
SAVE TRANSFER 
LOAD SKETCH 
LOAD TRANSFER 
EXIT TO BASIC 

Per selezionare una delle opzioni, sempli¬ 
cemente muovete la leva del joystick e 
premete il pulsante di fuoco in corrispon¬ 
denza della selezione desiderata, 
vediamo ora in dettaglio il funzionamento 
delle varie opzioni: 

Sketch 

Se premete FI, viene visualizzata la 
pagina grafica. Una pressione successi¬ 
va di F1 riporta invece al menu principale. 
Una volta attivata la pagina grafica, note¬ 
rete un -pennello- al centro dello scher¬ 
mo. Muovendo il joystick potete controlla¬ 
re i movimenti del pennello sullo schermo. 
Per poter disegnare, il pennello dovrà 
essere abbassato, mentre per semplici 
spostamenti il pennello dovrà essere al¬ 
zato. Il pulsante di fuoco controlla se II 
pennello è alzato o abbassato: premendo 
tale pulsante quando il pennello ò alzato, 
si otterrà un suo abbassamento, e vice¬ 
versa. Si noti che, quando il pennello è 
abbassato, compaiono al suo interno due 
lineette scure. 

La funzione Sketch contiene molti co¬ 
mandi di lavoro accessibili con la sempli¬ 
ce pressione di un tasto. Vediamo quali 
sono: 

Pennelli: Sketch Pad Plus vi mette a di¬ 


sposizione sei diversi pennelli di spessori 
differenti. Per selezionare un nuovo pen¬ 
nello. premete il tasto B, ed apparirà un 
indicatore della forma del pennello attuale 
nella parte superiore sinistra del pennello 
stesso. Continuate a premere il tasto B 
fino a che non trovate la forma del pennel¬ 
lo desiderata. Se desiderate eliminare 
l'indicatore mentre disegnate, premete 
contemporaneamente i tasti Commodore 
e B. Una successiva pressione di questi 
tasti farà ricomparire l'indicatore di pen¬ 
nello. 

Gomma per cancellare: per attivarla, 
premete il tasto E. La parte terminale del 
pennello si 'aprirà' per indicare che la 
gomma è attiva. Da questo momento in 
poi il pennello, se abbassato, cancellerà il 
video invece di tracciare delle linee. Per 
disabilitare la gomma per cancellare pre¬ 
mete Il tasto D. 

Colore del pennello: per modificare il co¬ 
lore. premete il tasto A. Pressioni succes¬ 
sive del tasto A variano in ciclo il colore del 
pennello. Si noti che tale colore non ha 
effetto su quanto tracciato, ma solamente 
sullo SPRITE costituente l'immagine del 
pennello. Tale comando serve Infatti a 
migliorare il contrasto quando il colore del 
pennello è simile o uguale a quello del 
fondo dello schermo. 

Velocità: potete accelerare o rallentare i 
movimenti del pennello premendo rispet¬ 
tivamente i tasti + e -. 

Linee: per tracciare una linea, premete il 
tasto L. Un segno + apparirà sullo scher- 
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mo in corrispondenza della posizione del 
pennello. Muovete ora il pennello sul 
punto in cui volete far terminare la linea, e 
premete il pulsante di fuoco. Una linea 
verrà istantaneamente tracciata con lo 
spessore relativo al pennello corrente. 
Se. durante questa operazione, avete 
dimenticato la posizione del punto di par¬ 
tenza della linea, premete nuovamente L 
ed il segno + cambierà di posto con l'im¬ 
magine del pennello. Per ritornare al 
modo standard, premete un tasto qualsia¬ 
si tranne il tasto L. 

Raggi: la pressione del tasto R traccia un 
raggio con la stessa procedura delle li¬ 
nee: l'unica differenza è che ora il segno 
+ non cambia posizione per il tracciamen¬ 
to di raggi successivi. 

Rettangoli: per tracciare un rettangolo, 
premete il tasto S. Appaiono quattro segni 
+ indicanti la forma e le dimensioni del 
rettangolo. Muovete il joystick verso de¬ 
stra o sinistra, oppure verso l’alto o il 
basso per aumentare o diminuire le di¬ 
mensioni del rettangolo. La pressione del 
pulsante di fuoco visualizza il rettangolo: 
con il joystick posizionatelo dove deside¬ 
rate e premete nuovamente il pulsante di 
fuoco. Ciò provoca il tracciamento del 
rettangolo utilizzando il pennello più pic¬ 
colo. Per ritornare al modo standard, 
premete un tasto qualsiasi. 

Fili: per colorare una zona chiusa, portate 
Il pennello al suo interno e premete il tasto 
F. Per uscire da un fili prima che questo 
sia terminato, premete un tasto qualsiasi. 

Testo: con Sketch Pad Plus, potete inse¬ 
rire direttamente del testo nella pagina 
grafica, e in ben 15 diverse misure di 
caratteri. Per inserire del testo, premete il 
tasto T. ed il pennello si trasforma in un 
cursore. Digitate il testo, tenendo presen¬ 
te che i tasti cursore ed il RETURN posso¬ 
no essere utilizzati per muovere il cursore 
sullo schermo. Il tasto FI provoca l’uscita 
dal modo testo. 

Per cancellare un carattere mentre state 
inserendo del testo, premete F3: il curso¬ 
re si spezza in due ad indicare che vi 
trovate in modo cancellazione. Posizio¬ 
natevi con il cursore sulla lettera da can¬ 
cellare, e ridigitatela correttamente. Pre¬ 
mete nuovamente F3 per ritornare in 
modo testo standard. 

Si noti che il modo cancellazione può 
essere utilizzato per scrivere in reverse su 
un oggetto solido. 

Per aumentare le dimensioni dei caratteri. 


premete il tasto con la freccia verso l'alto 
(non cursore), mentre il tasto con la frec¬ 
cia a sinistra (non cursore) riduce le di¬ 
mensioni dei caratteri. 

Transfer: permette di copiare zone dello 
schermo entro altre zone, eventualmente 
riducendone le dimensioni. Muovete il 
pennello in corrispondenza dell'angolo 
superiore sinistro della zona da selezio¬ 
nare, e premete il tasto X. Appariranno 
quattro segni ♦ che indicano la zona sele¬ 
zionata. Come per i rettangoli, potete 
variarne le dimensioni muovendo la leva 
del joystick. La pressione del pulsante di 
fuoco provoca la copia in un buffer dell'a¬ 
rea selezionata. Potete ora muovervi in 
corrispondenza della zona in cui volete 
posizionare la copia, e premere nuova¬ 
mente il pulsante di fuoco. La pressione di 
un qualsiasi tasto riporta al modo stan¬ 
dard. Se. in seguito, desiderate ricopiare 
la stessa area in un'altra zona dello scher¬ 
mo, premete il tasto N. e potrete diretta- 
mente posizionare la selezione nella 
zona desiderata. 

Se desiderate effettuare una copia con 
dimensioni ridotte, premete il tasto M e 
posizionate la selezione nella zona dello 
schermo che dovrà ricevere la copia: 
verrà tracciata un'area ridotta ad un quar¬ 
to delle dimensioni originarie. 

Per trasferire una parte di un disegno 
entro un altro disegno, copiate dal primo 
disegno la parte desiderata, premete 
RETURN per uscire dal modo transfer, 
ritornate al menu principale, caricate un 
nuovo disegno, entrate in modo sketch, e 
premete N o M per ■incollare" la copia 
nella zona desiderata. 

Clear: la pressione del tasto C pulisce la 
pagina grafica. La pulizia effettiva avvie¬ 
ne tuttavia alla seconda pressione del 
tasto C. mentre la pressione di qualsiasi 
altro tasto annulla l'operazione. 

Oops: la pressione del tasto O riporta la 
pagina grafica nelle condizioni in cui si 
trovava all’ingresso nel modo sketch. Il 
ritorno effettivo avviene tuttavia alla se¬ 
conda pressione del tasto O. mentre la 
pressione di qualsiasi altro tasto annulla 
l'operazione. 

Ellisse: per disegnare un cerchio o un 
ellisse, premete il tasto I. Appaiono quat¬ 
tro segni + indicanti la forma e le dimen¬ 
sioni dell'ellisse o del cerchio. Muovete il 
joystick verso destra o sinistra, oppure 
verso l'alto o il basso per aumentare o 
diminuire le dimensioni dell’ellisse. La 


pressione del pulsante di fuoco permette 
quindi di posizionare il cerchio o l'ellisse 
desiderate: il posizionamento effettivo 
avverrà in corrispondenza della successi¬ 
va pressione del pulsante di fuoco. Per 
ritornare al modo standard, premete 
RETURN. 

Se desiderate, potete ruotare l'ellisse pri¬ 
ma che esso venga tracciato: premete un 
tasto numerico da 1 a 9 prima di premere 
per l'ultima volta il pulsante di fuoco. Se 
premete il tasto 1, l'ellisse verrà ruotato di 
10 gradi, se premete il tasto 2 esso verrà 
ruotato di 20 gradi, e cosi via. Per regolare 
la rotazione in "modo fine", utilizzate i tasti 
+ e -: questi tasti rispettivamente incre¬ 
mentano e decrementano la rotazione di 
un grado alla volta. Tutte le rotazioni 
possono avvenire soltanto in senso antio¬ 
rario. opo aver regolato a vostra discre¬ 
zione il fattore di rotazione, premete il 
pulsante di fuoco per tracciare l'ellisse 
sullo schermo. 

Diamante: un diamante è l'evoluzione di 
un rettangolo in un poligono. Per generar¬ 
lo. premete il tasto Q: anche qui si presen¬ 
teranno i quattro segni +. Attraverso il 
joystick determinate la forma del diaman¬ 
te, quindi premete il pulsante dì fuoco. 
Spostatelo sulla zona dello schermo 
desiderata, e premete nuovamente il pul¬ 
sante di fuoco per tracciare il diamante. I 
diamanti possono essere ruotati con la 
stessa procedura appena vista per le el¬ 
lissi. Per uscire dal modo di generazione 
dei diamanti, premete il tasto RETURN. 

Pennello grosso: questa opzione vi per¬ 
mette di creare un pennello rettangolare 
di dimensioni maggiori di quello standard, 
per utilizzare questo nuovo pennello, 
premete il tasto G: anche qui appaiono 
quattro segni +, che vi permettono di 
definire la forma del pennello. Dopo aver 
selezionato, tramite il joystick, le dimen¬ 
sioni del pennello, premete il pulsante di 
fuoco. Potete ora disegnare sullo scher¬ 
mo tenendo premuto il pulsante di fuoco 
mentre spostate la leva del joystick. Per 
ritornare al pennello standard, premete 
RETURN. 

Se desiderate cancellare qualcosa utiliz¬ 
zando il pennello grosso, entrate in modo 
cancellazione premendo il tasto E prima 
del tasto G. Il pennello grosso rende molto 
agevole cancellare vaste zone dello 
schermo: per prima cosa, entrate in modo 
cancellazione premendo il tasto E. Quindi 
premete il tasto G, espandete la forma del 
pennello in direzione verticale oppure 
orizzontale, e premete il pulsante di fuo- 



co. A questo punto, muovendovi attraver¬ 
so lo schermo con il pulsante di fuoco 
premuto, potete cancellare in un sol colpo 
vaste zone del video. 

Testo "outline": questa opzione permette 
di generare caratteri "outline". I caratteri 
"outline" sono speciali caratteri formati 
soltanto dalle linee di contorno che defini¬ 
scono i caratteri stessi. Per utilizzare 
questa opzione, premete il tasto W prima 
di entrare nel modo testo premendo il 
consueto tasto T. Il tasto W agisce come 
un interruttore, in modo che una sua 
successiva pressione riporla i caratteri 
nel modo standard. Dovrete uscire dal 
modo testo attraverso il tasto FI prima di 
poter attivare o disattivare il modo "outll- 

Questo tipo di caratteri si presta molto 
bene per creare effetti di ombreggiatura 
del testo o caratteri tridimensionali : digita¬ 
te il testo in modo normale, quindi sposta¬ 
tevi con il cursore in corrispondenza del 
primo carattere, uscite dal modo testo 
attraverso la pressione di Fi, muovete il 
pennello di qualche pixel verso l'alto e 
verso sinistra, premete il tasto W per 
entrare in modo “outline", entrate in modo 
testo e ridigitate quanto scritto. Il testo 
avrà cosi un aspetto tridimensionale. 

Scorrimento dello schermo: utilizzando i 
tasti cursore è ora possibile muovere un 
disegno entro lo schermo. Qualsiasi parte 
del disegno che oltrepassi il bordo dello 
schermo viene cancellata, quindi occorre 
prestare un po' di attenzione. 

Swap: con questa funzione potete ora 
avere in memoria due disegni contempo¬ 
raneamente. Quando premete il tasto F5 
lo schermo corrente viene sostituito dallo 
schermo ausiliario. Tenete presente che 
le operazioni di caricamento, salvataggio 
e stampa hanno effetto soltanto sullo 
schermo corrente visualizzato nel mo¬ 
mento in cui viene richiesta una di queste 
operazioni. 

Con questa utilissima opzione è ora pos¬ 
sibile caricare un disegno diverso in cia¬ 
scuno schermo e. attraverso le opzioni di 
trasferimento di Sketch Pad Plus, copiare 
o muovere parti di disegno da uno scher¬ 
mo all'altro. Ad esempio, premete X per 
entrare in mod trasferimento, selezionate 
un'area dello schermo, premete RE¬ 
TURN per uscire dal modo trasferimento, 
premete il tasto F5 per cambiare scher¬ 
mo, e premete N o M per inserire una 
copia normale o miniaturizzata dell’Imma¬ 
gine selezionata nell’altro schermo. 


Zoom: ecco l'ultima ed utilissima nuova 
opzione offerta da Sketch Pad Plus. En¬ 
trate in modo zoom premendo il tasto Z. 
Un'area rettangolare definita da quattro 
segni * può essere mossa lungo lo scher¬ 
mo tramite il joystick, e posizionata nel 
punto desiderato premendo il pulsante di 
fuoco, l'area cosi definita viene ingrandi¬ 
ta automaticamente in modo da riempire 
l'intero schermo: ogni pixel viene infatti 
ingrandito di 8 volte. Per effettuare dell'e¬ 
diting di dettaglio entro la zona soggetta a 
zoom, muovete il pennello sul pixel che 
desiderate modificare e premete il pul¬ 
sante di fuoco. Se il pixel è acceso, esso 
verrà spento, e viceversa. Per muovere la 
finestra di zoom entro lo schermo potete 
utilizzare i tasti cursore, mentre la pres¬ 
sione del tasto RETURN provoca l'uscita 
dal modo zoom ed il ritomo alla vista 
normale. 

Si noti che i quattro segni * rimangono 
sullo schermo pronti per selezionare un¬ 
'altra area: se non desiderate rientrare in 
modo zoom, premete nuovamente RE¬ 
TURN. 

Quelle appena viste sono le opzioni di¬ 
sponibili nel modo sketch. Ritorniamo ora 
all'analisi delle opzioni del menu principa- 


Print 

Se possedete una stampante Commodo¬ 
re 1526 o MPS 802. potete stampare il 
disegno scegliendo tra stampa in formato 
grande oppure ridotto. 

Paint color 

Muovendo la leva del joystick potete sele¬ 
zionare il colore di tracciamento, posizio¬ 
nando la freccia sul colore desiderato 
entro la tavolozza. 

Background color 

Con procedura analoga a quella utilizzata 
per il colore di tracciamento, potete sele¬ 
zionare il colore di fondo dello schermo. 

Save sketch 

Vi permette di salvare su disco il disegno 
contenuto nella pagina grafica. 

Si noti che il programma aggiunge auto¬ 
maticamente i caratteri SP. in testa al 
nome del file che dovrete fornire prima del 
salvataggio. 

La semplice pressione di RETURN pro¬ 
voca l’uscita dall'opzione. 


Save transfer 

Vi permette di salvare su disco il disegno 
contenuto nel buffer di trasferimento. Si 
noti che il programma aggiunge automa¬ 
ticamente i caratteri SX. in testa al nome 
del file che dovrete fornire prima del sal¬ 
vataggio. 

La semplice pressione di RETURN pro¬ 
voca l'uscita dall'opzione. 

Load sketch 

Vi permette di caricare da disco un dise¬ 
gno precedentemente salvato. Si noti che 
non occorre inserire in testa al nome del 
file i caratteri SP di cui sopra. La semplice 
pressione di RETURN provoca l'uscita 
dall'opzione. 

Load transfer 

Vi permette di caricare da disco entro il 
buffer una zona di disegno precedente- 
mente salvata. 

Si noti che non occorre inserire in testa al 
nome del file i caratteri SX di cui sopra. La 
semplice pressione di RETURN provoca 
l'uscita dall'opzione. 

Exit to BASIC 

Termina l'utilizzo do Sketch Pad Plus ri¬ 
tornando al normale ambiente BASIC. 

Note importanti per l'utilizzo del program- 


II primo programma listato e presente su 
disco e nastro è il programma 
"SKETCH+#1". scritto in BASIC. Per fun¬ 
zionare. esso ha bisogno di trovare sullo 
stesso disco i programmi "SKETCH- 
PADt", "SKETCH-PAD", "SAVES- 
KETCH", "PRINTSKETCH", tutti e tre in 
linguaggio macchina. I listati dei genera¬ 
tori di questi ultimi tre programmi sono sali 
pubblicati sullo scorso numero di Super- 
Commodore: per non sottrarre spazio agli 
altri programmi presentati su questo 
numero della rivista ne omettiamo i listati. 
Essi sono tuttavia riproposti sul disco e sul 
nastro allegati a questo numero di Super- 
Commodore. 

Il listato del generatore di "SKETCH- 
PAD*" viene Invece anche listato, e va ad 
aggiungersi ai programmi listati sullo 
scorso numero della rivista. 

Si noti che i programmi "SKETCH-PAD", 
"SAVESKETCH", “PRINTSKETCH", 
"SKETCH-PAD+" non sono i programmi 
2. 3, 4 e 5 presenti su disco o nastro. I 
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programmi 2.3.4 e 5 presenti su disco o 
nastro sono intatti dei programmi genera¬ 
tori che, una volta attivati, generano su 
disco rispettivamente i programmi 
"SKETCH-PAD - . "SAVESKETCH". 
•PRINTSKETCH- e 'SKETCH-PAD*' in 
linguaggio macchina. Prima di poter utiliz¬ 
zare Sketch Pad Plus occorre pertanto 
eseguire questa procedura: 

1. Copiare su un disco nuovo (che chia¬ 
meremo disco A) il programma numero 1 
in BASIC 


2. Caricare ed attivare il programma 2 ed 
inserire nel drive il disco A. Il programma 
2 genererà sul disco A il file "SKETCH- 
PAD" in linguaggio macchina. 

3. Caricare ed attivare il programma 3 ed 
inserire nel drive il disco A. Il programma 
2 genererà sul disco A il file "SAVES¬ 
KETCH" in linguaggio macchina. 

4. Caricare ed attivare il programma 4 ed 
inserire nel drive H disco A. Il programma 
2 genererà sul disco A il file "PRINTS- 


KETCH" in linguaggio macchina. 

5. Caricare ed attivare il programma 5 ed 
inserire nel drive il disco A. Il programma 
2 genererà sul disco A il file “SKETCH- 
PAD+" in linguaggio macchina. 


A questo punto avrete sul disco A tutti 
quanti i programmi necessari all'utilizzo di 
Sketch Pad Plus, e potrete caricare ed 
attivare il programma 1 in BASIC per 
eseguire Sketch Pad Plus. 


Sketch Pad Plus 



Programma 1 (SKETCH+#1) 



20 IFL>0THEN60 trem 64 

260 IFPEEK(251)<>86THENCM-1 

rem 74 

30 IF PF.EK ( 52 ) O32THENP0KE52, 32tPOKES6, 32 

270 POKE251,86 

rem 250 

:POKE2 52,8 61CLR trem 32 

280 BA-27998:POKE87B,PEEK(BA):POKE879,PEE 

40 PRINT"(CLR)(BLU)| 3 SPAZI)SUPERCOMMODO 

K (BA-t-1 ) 

rem 52 

RE( 5 SPAZI(PRESENTAI 7 SPAZI»" 

290 RETURN 

rem 123 

trem 125 

300 POKE53280,6:POKE53281,6tPRINT"(CLR) 

50 PRINTTAB(10)"| 2 SPAZI(SKETCH 

(CYN(" 

rem 49 

{ 4 SPAZI)PAD( 4 SPAZI»" trem 66 

310 PRINT"IHOME 1"TAB(15)"(BLK)SKETCH PAD 

60 GOSUB130 trem 122 

( 2 GIU')" 

rem 147 

70 GOSUB300 trem 122 

320 IFCM-0THENCM-1 

rem 78 

80 IFCM-7THEN110 trem 188 

330 FORCl=lT07tPRINT" * 

rem 68 

90 POKE845,PF11) :POKE846,PR(2)IPOKES328 

340 IFC1<3THENPRINTTAB(20);tFORD-1TOl6tPO 

PR(1)tPOKE646,PR(1)!PRINT"(CLR)"tSYS32 

KEÓ46,DtPR!N7"(RVS) (OFF)";tNEXTtPRIN 

768 trem 225 

TtGOTO360 

rem 22 

100 GOTO 70 trem 49 

350 PRINT" " 

rem 105 

110 INPUT"(CLR)FINE (S/N)FCStIFFC$<>"S" 

)60 PRINT"(CYN)";tIFC1=CMTHENPRINT"(RVS)" 

THKN70 trem 65 


rem 155 

120 PRINT"(CLR)TERMINE OPERAZIONI"tPOKE25 

370 PRINTCMS(Cl) 

rem 160 

1,01END trem 121 

380 NF.XT 

rem 218 

130 IFPEEK(251)-86THEHPOKE839,0tGOTO190 

390 PRINT"(HOME 1{ 14 GIU')* 

rem 110 

trem 71 

400 PRINTTAB(24)"(BLK)F1-SKETCH{ 

3 GIU') 

140 IFL-OTHENL-1tLOAD”SKETCH-PAD",8,1 

* 

rem 28 

trem 233 

410 PRINTTAB(24)"F7-PRINT(CYN1" 

rem 202 

150 IFL-lTHENL-2tLOAD"SAVESKETCH",8, 1 

420 GOSUB930 

rem 178 

t rem 25 

430 GETFCS 

rem 36 

160 IFL«2THENL«3tLOAD"PRINTSKETCH",8,1 

440 IFFC$="(F1 1 "THENIFCM-7THENCM-1 

t rem 122 


rem 201 

165 IFL-3THENL-4 tLOAD"SKETCH-PAD*",8,1 

450 IFFC$="(FI)"THEN920 

rem 165 

t rem 33 

460 IFFCS="(F7|"THENGOSUB1040tGQT0300 

170 F0RC1-1T01281READSPIPOKE16255+C1,SP:N 


rem 89 

EXT trem 235 

470 IFPEEK(56320)-127THEN430 

rem 61 

180 POKE839,1IPOKE833,1tPOKE840,50 

480 J1-PEEK(56320) 

rem 202 

trem 195 

490 IF(J10R239)-239THEN630 

rem 218 

190 CMS(1)“"PAINT COLOR"tPR(11=0trem 23 

500 IF ( J10P.247) -247THEN610 

rem 206 

200 CMS(2)-"BACKGROUND COLOR":PR(2)-14 

510 IF(J10R251)=251THEN580 

re» 203 

trem 170 

520 IF(J10R253)-253THEN560 

rem 206 

210 CMS(3)-"SAVE SKETCH" t rem 61 

530 IF ( J10R254 ) O254THEN430 

rem 10 

220 CMS(4)-"SAVE TRANSFER" trem 226 

540 CM-CM-1tIFCM<1THENCM=7 

rem 77 

230 CMS(5)—"LOAD SKETCH" trem 50 

550 GOTO310 

rem 103 

240 CMS(6)“"LOAD .TRANSFER" -rem 215 

560 CM—CM+1:IFCM>7THENCM=1 

rem 79 

250 CMS(7)="EXIT TO BASIC" trem 147 

570 GOTO310 

rem 105 
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580 IFCM>2THEN430 ;rem 242 

590 PR(CM)=PR(CM)-1:IFPR(CM)COTHENPR(CM)= 


15 


76 


600 GOTO420 :rem 101 

610 PR(CM)-PR(CM)+1 :IFPR(CM)>15THENPR(CM) 
-0 : rem 69 

620 GOTO420 : rem 103 

630 IFCM=7THEN920 :rem 246 

640 1FCM<3THEN430 :rem 23S 

650 PRINT"(CLRI";CMS(CM);"I 2 GIU'.":FC$= 
*" : rem 216 

660 INPUT"NOME FILE";FCS:IFFCS-""THEN300 
: rem 96 

670 IFCM=30P.CM-5THENFCS="SP . "*LEFTS <FC$,1 
2) :rem 4 

680 IFCM=40RCM=6THENFC5="SX."»LEFTS(FCS,1 


2) 


15 


690 OPEN15,8,15 :rem 45 

700 OPEN2, 8, 2, FCS*",F,R" : INPtrmó.E, ES 

:rem 88 

710 CLOSE2:CLOSE15 : rem 86 

720 IFE>0THENIFCM>4THEN870 : rem 105 

730 IFE=0THENIFCH<5THEN870 :rem 104 

740 IFCM>4THENLOADFCS,8,1 :rem 233 

750 PK-17950sPOKEPK,(LEN(FCS)) : rem 216 

760 PRINT"! 3 GIO'ISAVING ";FCS;" 

( 3 GIU'r srem 3 

770 IFCM=3THENBA=8192:EA=BA+8000:rem 99 
780 IFCM=4THENBA=27998:EA=BA4INT((PEEK(87 
8)/8)*PEEK(879))+10 :rem 193 

790 BH-INT(BA/256):BL-BA-(BH*256) 


73 


) EH-INT(EA/256)sEL=EA-(EH*256) 


810 POKE18030,BLsPOKEl8C 34,BHs PCKE18036,E 
L:POKE1804 0,EH : rem 230 

820 FORC1-1TOLEN(FC$)sPOK£PK+Cl,ASCIMIDS( 
FC$,C1,1))sNEXT .-rem 76 

830 IFCM=4THENPOKEBA,PEEK<678>sPOKEBA*l,P 
EEK (879) -.rem 231 

840 SYS18000 :rem 148 

850 IFPEEK(PK)“OTHEN300 : rem 108 

860 PRINT"ERRORE( 2 SPAZI)! 3 GID'i":GOTO 
880 : rem 132 

870 PR1NTE;E5;"( 3 GIU'»" srem 199 

880 PRINT"PREMI RETURN" : rem 206 

890 GETFCS : IFFCSo""THEN890 : rem 50 

900 GETFCS:1FFCS=""THEN900 :rem 229 

910 GOTO300 : rem 102 

920 RETURN :rem 123 

930 PRINT”(HOME»( 4 GIU'»" srem 196 

940 PRINTTAB(20); : rem 239 

950 FORCl=0TO15 : IFC1-PR (1) THENPF.INT"' " ; :G 
• OTO970 
960 PRINT" 

970 NEXT srem 223 

980 PRINT"( 2 GIU')" 


990 PRINTTAB(20); srem 244 

1000 FORC1=0TOl5:IFC1=PR(2)THENPRINT"’";s 
GOTO1020 

1010 PRINT" *; srem 206 

1020 NEXT 
1030 RETURN 
1040 FRINT"(CLR(STAMPA IMMAGINE 

( 5 SPAZI)! 3 GIU')" srem 105 

1050 PRINT-'TIPO STAMPAI 3 SPAZI) (RVS)L 

(OFF)-LARGA 0( 2 SPAZI|(RVS)S(OFF»-S 
TRETTA?" srem 246 

1060 GETFCS :IFFC$o""THENl 060 srem 126 

1070 GETFCS:IFFCS-""THEN1070 srem 67 

1080 IFFC$="L"THENPOKE49220,0 sGOTOl110 


1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 


IFFC$-"S"THENPORE49220,1: GOTO!110 


GOTO1120 

SYS49300 

RETURN 

DATA0,0,0,0,0,0,0,0 
DATA0,0,0,0,0,0,0,0 


204 

191 

194 

164 

147 

148 


DATA0,0,0,0,0,255,128,0 :rem 
DATAI 60,192,0,160,224,0,160,192 


DATA0, 255,128,0,0,0,0,0 


DATA0,0,0,0,0,0,0,0 


DATA0,0,0,0,0,D,0,0 
DATA0,0,0,0,0,0,0,128 


rem 11 
rem 110 
rem 152 
rem 153 
rem 252 
rem 146 
rem 147 
rem 3 
rem 224 
rem 10 
rem 151 
rem 152 
rem 4 


Programma 5 (generatore di SKETCH-PAD*) 

100 PRINT"(CLR}"TAB(206)"(WHT}GENERATORE 
DI SKETCH-PAD*":PRINTsPRINT : rem 244 
150 PRINT"ICYN)INSERIRE DISCO E PREMERE 
(RVSI RETURN)OFF)"SPRINT SPRINT 

srem 64 

200 GSTAS: IFASoCHRS (13) THEN200 : rem 246 
250 OPEN2,8,2,"SKETCH-PAD*,P,W":GOSUB550 
srem 111 

300 PRINT»2,CHR$ (236)CHP.SU94); : rem 185 
350 F0RI-1T03232:READA:CK-CK+A:PR1NT42,CH 
R$(A);sNEXTI srem 17 

400 CLOSE 2sPRINTTAB{9)"(<7>]SKETCH-PAD* 
CREATO":PRINTsPRINTTAB(10); : rem 65 
450 END srem 112 

500 CLOSE2:CLOS£15:OPENI5,8,15,"S0sSKETCH 
-PAD*"sCLOSE15sEND srem 94 
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550 CLOSE15:OPEK15,8,15:INPUT#15,E,ES, T,S 
: IFE-OTHENRETUKN -.rem 32 

600 PRINT"ERRORE DISCO “E": "E$;T;S 

: reo 241 

650 CLOSE15:OPEN15,8,15,"IO:";CLOSE15 

:rem 120 

49900 DATA 201,073,240,052,201,090 

: rem 130 

49906 DATA 240,057,201,081,240,057 

:rem 146 

49912 DATA 201,071,240,062,201,135 

: rem 132 

49918 DATA 240,062,201,145,240,017 

:rem 142 

49924 DATA 201,017,240,016,201,029 

: rem 136 

49930 DATA 240,015,201,157,240,014 

:rem 134 

49936 DATA 201,087,240,013,096,076 

: rem 157 

49942 DATA 066,195,076,093,195,076 

:rem 178 

49948 DATA 120,195,076,147,195,076 

: rem 175 

49954 DATA 133,196,169,005,141,147 

: rem 163 

49960 DATA 066,032,171,197,096,032 

49966 DATA 108,203,096,169.090,141 

.•rem 164 

49972 DATA 147,066,032,171,197,096 

: rem 171 

49978 DATA 032,187,206,096,032,219 

: rem 168 

49984 DATA 206,096,032,088,197,169 

:rem 181 

49990 DATA 001,141,132,196,169,000 

:rem 146 

49996 DATA 133,002,169,032,133,003 

: rem 147 

50002 DATA 169,064,133,063,169,033 

: rem 141 

50008 DATA 133,064,076,174,195,032 

: rem 145 

50014 DATA 088,197,169,002,141,132 

:rem 143 

50020 DATA 196,169,056,133,002,169 

:rem 145 

50026 DATA 063,133,003,169,248,133 

:rem 139 

50032 DATA 063,169,061,133,064,076 

: rem 142 

50038 DATA 174,195,032,088.197,169 

:rem 167 

50044 DATA 003,141,132,196,169,056 

: rem 141 

50050 DATA 133,002,169,063,133,003 


: rem 124 

50056 DATA 169,048,133,063,169,063 

: rem 155 

50062 DATA 133,064,076,174,195,032 

: rem 145 

50068 DATA 088,197,169,004,141,132 

: rem 154 

50074 DATA 196,169,000,133,002,169 

: rem 143 

50080 DATA 032,133,003,169,008,133 

.-rem 129 

50086 DATA 063,169,032,133,064,076 

:rem 149 

50092 DATA 174,195,169,001,141,204 

: rem 142 

50098 DATA 066,141,205,066,160,000 

: rem 136 

50104 DATA 177,063,145,002,173,204 

: rem 133 

50110 DATA 066,201,040,240,003,076 

.-rem 118 

50116 DATA 213,195,173,132,196,201 

:rem 140 

50122 DATA 001,240,008,201,002,240 

:rem 106 

50128 DATA 004,169,000,145,002,173 

:rem 129 

50134 DATA 205,066,201,025,240,003 

:rero 121 

50140 DATA 076,238,195,173,132,196 

: rem 154 

50146 DATA 201,003,240,008,201,004 

: rem 113 

50152 DATA 240,004,169,000,145,002 

:rem 121 

50158 DATA 200,192,008,240,003,076 

: rem 133 

50164 DATA 184,195,238,204,066,173 

: rem 156 

50170 DATA 204,066,201,041,208,018 

: rem 128 

50176 DATA 169,001,141,204,066,238 

: rem 143 

50182 DATA 205,066,173,205,066,201 

: rem 138 

50188 DATA 026,208,003,076,109,196 

: rem 152 

50194 DATA 173,132,196,201,001,240 

:rem 132 

50200 DATA 311,201,002,240,010,201 

: rem 94 

50206 DATA 003,240,009,076,058,196 

: rem 143 

50212 DATA 076,074,196,076,090,196 

: rem 158 

50218 DATA 169,008,141,106,066,169 

:rem 151 




50224 DATA 000,141.107,066,032,140 

:rem 119 

50230 DATA 197,076,106,196,169,008 

: rem 157 

50236 DATA 141,106,066,169,000,141 

: reto 133 

50242 DATA 107,066,032,109,197,076 

* treni 148 

50248 DATA 106,196,169,008,141,106 

treni 149 

50254 DATA 066,169,000,141,107,066 

t rem 140 

50260 DATA 032,109,197,076,106,196 

: rem 151 

50266 DATA 169,008,141,106,066,169 

treni 154 

50272 DATA 000,141,107,066,032,140 

t rem 122 

50278 DATA 197,076,106,196,076,182 

treni 169 

50284 DATA 195,173,108,066,133,002 

treni 145 

50290 DATA 173,109,066,133,003,173 

treni 140 

50296 DATA 130,196,133,063,173,131 

: rem 144 

50302 DATA 196,133,064,096,193,193 

trem 154 

50308 DATA 193,173,051,070,201,087 

trem 141 

50314 DATA 240,008,169,087,141,051 

trem 140 

50320 DATA 070,076,153,196,169,000 

trem 141 

50326 DATA 141,051,070,169,000,141 

: rem 127 

50332 DATA 050,070,169,199,141,203 

trem 141 

50338 DATA 14-7, 169,196, 141,204,147 

trem 157 

50344 DATA 169,190,141,138,145,169 

trem 156 

50350 DATA 196,141,139,145,169,173 

trem 155 

50356 DATA 141,097,146,141,127., 146 

t rem 149 

50362 DATA 141,165,147,096,032,228 

trem 148 

50368 DATA 255,240,003,141,054,070 

trem 135 

50374 DATA 096,173,051,070,201,087 

50380 DATA 240,003,076,092,145,238 

: rem 142 

50386 DATA 050,070,173,050,070,201 

: rem 130 

50392 DATA 001,240,044,201,002,240 


trem 115 

50398 DATA 046,201,003,240,048,201 

trem 132 

50404 DATA 004,240,044,201,005,240 

trem 115 

50410 DATA 046,201,006,240,042,201 

trem 114 

50416 DATA 007,240,020,201,008,240 

trem 118 

50422 DATA 016,201,009,240,036,201 

trem 120 

50428 DATA 010,240,061,169,000,141 

trem 125 

50434 DATA 050,070,076,209,196,032 

trem 143 

50440 DATA 231,131,076,069,197,032 

trem 144 

50446 DATA 037,132.076,069,197,032 

trem 155 

50452 DATA 169,131,076,069,197,032 

trem 157 

50458 DATA 087,132,076,069,197,032 

trem 163 

50464 DATA 037,132,032,169,131,173 

trem 142 

50470 DATA 065,003,141,053,070,201 

trem 124 

50476 DATA 001,240,005,169,001,076 

treln 134 

50482 DATA 054,197,169,000,141,065 

trem 14B 

50488 DATA 003,076.069,197,173,053 

t rem 162 

50494 DATA 070,141.065,003,076,092 

tram 143: 

50500 DATA 145,169,096,141,127,146 

trem 148 

50506 DATA 032,103,146,169,173,141 

trem 139 

50512 DATA 127,146,173,054,070,076 

50518 DATA 140,145,165,002,141,109 

trem 133 

50524 DATA 066,165,003,141,109,066 

trem 141 

50530 DATA 165,063,141,130,196,165 

trem 142 

50536 DATA 064,141,131,196,096,165 

trem 153 

50542 DATA 002,024,109,106,066,133 

trem 130 

50548 DATA 002,165,003, 109,107,066' 

trem 139 

50554 DATA 133,003,165,063,024,109 

trem 136 

50560 DATA 106,066,133,063,165,064 

trem 143 
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50566 DATA 109,107,066,133,064,096 

: rem 154 

50572 DATA 165,002,056,237,106,066 

:rem 145 

50578 DATA 133,002,165,003,237,107 

: rem 139 

50584 DATA 066,133,003,165,063,056 

: rem 146 

50590 DATA 237,106,066,133,063,165 

:rem 148 

50596 DATA 064,237,107,066,133,064 

: rem 154 

50602 DATA 096,032,230,134,165,198 

50608 DATA 240,003,076,102,203,169 

: rem 135 

50614 DATA 000,141,239,003,032,130 

:rem 118 

50620 DATA 134,165,198,208,003,076 

: rem 147 

50626 DATA 038,198,032,228,255,201 

:rem 150 

50632 DATA 043,240,007,201,045,240 

: rem 124 

50638 DATA 021,076,246,197,238,239 

:rem 164 

50644 DATA 003,173,239,003,201,091 

: rem 133 

50650 DATA 208,005,169,090,141,239 

: rem 146 

50656 DATA 003,076,186,197,206,239 

:rem 162 

50662 DATA 003,173,239,003,201,255 

: rem 135 

50668 DATA 208,005,169,000,141,239 

: rem 146 

50674 DATA 003,076,186,197,024,201 

:rem 149 

50680 DATA 048,176,003,076,006,198 

:rem 155 

50686 DATA 024,201,058,176,003,076 

: rem 147 

50692 DATA 009,198,076,102,203,162 

: rem 149 

50698 DATA 000,142,239,003,056,233 

: rem 141 

50704 DATA 048,170,224,000,240,013 

:rem 124 

50710 DATA 173,239,003,024,105,010 

:rem 124 

50716 DATA 141,239,003,202,076,018 

:rem 138 

50722 DATA 198,076,186,197,165,002 

:rem 163 

50728 DATA 141,113,066,165,003,141 

: rem 136 

50734 DATA 114,066,173,073,003,141 


50740 DATA 
50746 DATA 
50752 DATA 
50758 DATA 
50764 DATA 
50770 DATA 
50776 DATA 
50782 DATA 
50788 DATA 
50794 DATA 
50800 DATA 
50806 DATA 
50812 DATA 
50818 DATA 
50824 DATA 
50830 DATA 
50836 DATA 
50842 DATA 
50848 DATA 
50854 DATA 
50860 DATA 
50866 DATA 
50872 DATA 
50878 DATA 
50884 DATA 
50890 DATA 
50896 DATA 
50902 DATA 


115,066,173, 
116,066,173, 
117,066,173, 
118,066,173, 
119,066,173, 
141,104,066, 
Oli, 141, 106, 
131,206,106, 
173,111,003, 
066,201,000, 
106,066,032, 
106,066,208, 
066,169,000, 
032,015,188, 
000,032,145, 
186,032,015, 
169,000,032, 
020,187,032, 
105,066,165, 
066,165,003, 
173,073,003, 
173,074,003, 
173,075,003, 
173,063,003, 
173,067,003, 
160,174,169, 
187,032,015, 
169,000,032, 


074,003,141 

075,003,141 

063,003,141 

067,003,141 

110,003,074 

:rem 

2Q1,000,240 

:rem 

066,032,169 

:rem 

066,208,248 

074,141,105 

240,051,141 

087,132,206 

:rem 

248,172,105 

032,145,179 

:rem 

160,117,169 

:rem 

179,032,043 

188,160,090 

145,179,032 

170,177,140 

002,141,120 

141,121,066 

141,122,066 

141,123,066 

:rem 

141,124,066 
141,125,066 
141,126,066 
168,032,162 
188,160,180 
145,179,032 


137 
136 

144 

139 
150 

142 
121 

143 
148 

138 
128 
136 

148 

146 
152 
133 

145 
145 

140 
136 

141 
136 

144 
143 

147 

149 
156 
158 

139 


41 




50908 

DATA 

020, 

,187. 

,162, 

,000, 

181, 

,097 









: rem 

152 








: rem 

145 

51082 

DATA 

232, 

,224, 

,005, 

,208, 

,246, 

,165 


50914 

DATA 

157, 

,092, 

,068, 

,232, 

.224, 

,005 









: rem 

140 








: rem 

147 

51088 

DATA 

097, 

.032, 

,043, 

,186, 

,032, 

,100 


50920 

DATA 

208, 

, 246, 

,172, 

,105, 

,066, 

,169 









: rem 

141 








: rem 

152 

51094 

DATA 

226, 

,032, 

,015, 

, 188, 

,172, 

.104 


50926 

DATA 


,032, 

,145, 

,179, 

.032, 

,015 









: rem 

142 








: rem 

135 

51100 

DATA 

066, 

.169, 

,000, 

,032, 

,145, 

.179 


50932 

DATA 

188, 

,172, 

,104, 

,066, 

,169, 

,000 









: rem 

137 








:rem 

149 

51106 

DATA 

032, 

,043, 

,186, 

,162, 

,000, 

.181 


50938 

DATA 

032, 

,145, 

,179, 

,032, 

.083, 

, 184 









: rem 

129 








:rem 

156 

51112 

DATA 

097, 

.157, 

,102, 

,068, 

,232, 

,224 


50944 

DATA 

032, 

.088, 

,188, 

, 162, 

,000, 

,181 









: rem 

141 








: rem 

149 

51118 

DATA 

005, 

,208, 

,246, 

,032, 

,043, 

,188 


50950 

DATA 

097, 

,157, 

,097, 

,068, 

,232, 

,224 









: rem 

142 








: rem 

163 

51124 

DATA 

141, 

.137, 

,066, 

,032, 

,015, 

, 188 


50956 

DATA 

005, 

,208, 

,246, 

,169, 

,000, 

, 141 









: rem 

140 








: rem 

144 

51130 

DATA 

165, 

.097, 

,032, 

,043, 

, 186, 

,162 


50962 

DATA 

108, 

,066, 

,169, 

,000, 

, 141, 

,109 









: rem 

144 








: rem 

145 

51136 

DATA 

000, 

,181, 

,097, 

,157, 

. 117, 

.068 


50968 

DATA 

066, 

,165, 

,198, 

,240, 

,006, 

,032 









: rem 

148 








: rem 

157 

51142 

DATA 

232, 

.224, 

,005, 

,208, 

.246, 

.172 


50974 

DATA 

228, 

,255, 

,076, 

,225, 

,202, 

,173 









:rem 

135 








:rem 

156 

51148 

DATA 

142, 

,066, 

,169, 

,000, 

.032, 

,145 


50980 

DATA 

108, 

,066, 

,141, 

,140, 

.066, 

.173 









: rem 

139 








: rem 

147 

51154 

DATA 

179. 

.162, 

,000, 

,139, 

,092, 

.068 


50986 

DATA 

109, 

,066, 

,141, 

,141, 

.066, 

,032 









: rem 

155 








: rem 

149 

51160 

DATA 

149, 

.105, 

,232, 

,224, 

,005, 

.208 


50992 

DATA 

017, 

,203, 

,173, 

,139, 

.066, 

,201 









: rem 

133 








:rem 

147 

51166 

DATA 

246, 

,165, 

,097, 

,032, 

.043, 

. 186 


50998 

DATA 

002, 

,240, 

,021, 

.201, 

003, 

,240 









: rem 

156 








: rem 

124 

51172 

DATA 

032, 

107, 

,226, 

032, 

.015, 

.188 


51004 

DATA 

029, 

,201, 

,004, 

,240, 

.037, 

,201 









: rem 

137 








: rem 

117 

51178 

DATA 

172, 

.105, 

,066, 

.169, 

.000, 

,032 


51010 

DATA 

005, 

,240, 

,045, 

.173, 

108, 

,066 









: rem 

141 








: rem 

129 

51184 

DATA 

145, 

.179, 

,032, 

,043, 

.186, 

.162 


51016 

DATA 

141, 

,142, 

.066, 

,076, 

,123, 

,199 









: rem 

152 








:rem 

146 

51190 

DATA 

000, 

.181, 

,097, 

,157, 

.107, 

,068 

147 

5102.2 

DATA 

169, 

,180, 

,056, 

,237, 

,108, 

,066 









: rem 








: rem 

149 

51196 

DATA 

232, 

224, 

,005, 

,208, 

.246, 

,032 


51028 

DATA 

141, 

, 142, 

,066, 

,076, 

.123, 

,199 









: rem 

139 








: rem 

149 

51202 

DATA 

015, 

188, 

,165, 

,097, 

.032, 

043 


51034 

DATA 

173, 

,108, 

,066, 

.056, 

.233, 

, 180 









: rem 

143 








: rem 

143 

51208 

DATA 

186, 

162, 

,000, 

,189, 

.117, 

.068 


51040 

DATA 

141, 

,142, 

,066, 

,076, 

123, 

,199 









: rem 

151 








:rem 

143 

51214 

DATA 

149, 

105, 

,232, 

,224, 

,005, 

208 


51046 

DATA 

169, 

,104, 

,056, 

237, 

108, 

,066 









:rem 

133 








: rem 

151 

51220 

DATA 

246, 

.165, 

,097, 

,032, 

106, 

184 


51052 

DATA 

141, 

,142, 

,066, 

076, 

123, 

,199 









:rem 

145 








: rem 

146 

51226 

DATA 

032, 

113, 

,191, 

,162, 

.000, 

,181 


51058 

DATA 

173, 

,108, 

,066, 

056, 

233, 

,104 









: rem 

126 








:rem 

145 

51232 

DATA 

097, 

157, 

,122, 

,068, 

,232, 

224 


51064 

DATA 

141, 

,142, 

,066, 

.172, 

142, 

,066 









: rem 

146 








:rem 

140 

51238 

DATA 

005, 

208, 

,246, 

,173, 

.137, 

.066 


51070 

DATA 

169, 

,000, 

,032, 

145, 

179, 

,162 









: rem 

150 








; rem 

140 

51244 

DATA 

201, 

000, 

,208, 

.019, 

.160, 

001 


51076 

DATA 

000 , 

,189, 

,092, 

.068, 

149, 

,105 









:rem 

117 


42 SUPERCOMMOOORE C641 




51250 DATA 169,000,032,145,179,162 

:rem 143 

: rem 140 

51424 DATA 237,130,066,141,143,066 

51256 DATA 000,181,097,157,102,068 

: rerr, 140 

: rem 145 

51430-DATA 173,142,066,024,109,239 

51262 DATA 232,224,005,208,246,162 

:rem 143 

: rem 137 

51436 DATA 003,141,142,066,173,143 

51268 DATA 000,189,102,068,149,097 

: rem 136 

:rem 157 

51442 DATA 066, 105,000, 141, 14.3,066 

51274 DATA 189,107,068,149,105,232 

:rem 130 

: rem 156 

51448 DATA 173,142,066,141,140,066 

51280 DATA 224,005,208,241,032,020 

:rem 145 

: rem 123 

51454 DATA 173,143,066,141,141,066 

51286 DATA 187,032,014,227,032,015 

:rem 144 

:rem 140 

51460 DATA 032,017,203,169,000,141 

51292 DATA 188,160,180,169,000,032 

:rem 126 

:rem 143 

51466 DATA 132,066,173,139,066,201 

51298 DATA 145,179,032,043,186,032 

:rem 149 

: rem 154 

51472 DATA 002,240,029,201,003,240 

51304 DATA 015,188,160,174,169,168 

:rem 120 

: rem 156 

51478 DATA 047,201,004,240,063,201 

51310 DATA 032,162,187,032,020,187 

:rem 131 

:rem 133 

51484 DATA 005,240,081,173,142,066 

51316 DATA 032,088,188,032,170,177 

: rem 142 

: rem 152 

51490 DATA 141,131,066,169,001,141 

51322 DATA 140,129,066,141,130,066 

:rem 135 

-.rem 134 

51496 DATA 134,066,141,136,066,076 

51328 DATA 173,108,066,141,140,066 

:rem 156 

: rem 144 

51502 DATA 129,201,169,180,056,237 

51334 DATA 173,109,066,141,141,066 

•■rem 146 

:rem 143 

51508 DATA 142,066,141,131,066,169 

51340 DATA 032,017,203,173,139,066 

:rem 14^ 

:rem 137 

51514 DATA 000,141,134,066,169,001 

51346 DATA 201,002,240,023,201,003 

: rem 129 

:rem 111 

51520 DATA 141,136,066,076,129,201 

51352 DATA 240,039,201,004,240,055 

: rem 139 

••rem 127 

51526 DATA 173,142,066,056,233,18-' 

51358 DATA 173,129,066,141,142,066 

: rem 147 

: rem 152 

51532 DATA 141,131,066,169,000,141 

51364 DATA 173,130,066,141,143,066 

:rem 131 

:rem 142 

51538 DATA 134,066,141,136,066,076 

51370 DATA 076,230,200,169,180,056 

:rem 153 

: rem 142 

51544 DATA 129,201,169,104,056,23- 

51376 DATA 237,129,066,141,142,066 

: rem 148 

: rem 153 

51550 DATA 142,066, 141,131,066, 169 

51382 DATA 169,000,237,130,066,141 

: rem 144 

.-rem 139 

51556 DATA 001,141,134,066,169,000 

51388 DATA 143,066,076,230,200,169 

:rem 135 

: rem 151 

51562 DATA 141,136,066,076,123,201 

51394 DATA 180, 02-1,109, 129,066,141 

:rem 145 

:rem 147 

51568 DATA 173,142,066,056,233,104 

51400 DATA 142,066,169,000,109,130 

: rem 149 

:rem 129 

51574 DATA 141,131,066,169,001,141 

51406 DATA 066,141,143,066,076,230 

: rem 138 

: rem 142 

51580 DATA 134,066, 1 -1!, 136, 066, 172 

51412 DATA 200,169,104,056,237,129 

: rem i4? 

:rem 141 

51586 DATA 131,066,169,000,032,145 

51418 DATA 066,141,142,066,169,001 

: rem 143 
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51592 DATA 179,162,000,189,092,068 

: rem 133 

: rem 161 

51766 DATA 076,060,202,032,169,131 

51598 DATA 149,105,232,224,005,208 

.-rem 144 

: rem 148 

51772 DATA 206,133,066,208,237,173 

51604 DATA 246,165,097,032,043,186 

: rem 152 

: rem 153 

51778 DATA 135,066,240,019,173,136 

51610 DATA 032,100,226,162,000,139 

: rem 156 

:rem 126 

51784 DATA 066,208,006,032,087,132 

51616 DATA 122,068,149,105,232,224 

: rem 149 

srem 143 

51790 DATA 076,084,202,032,037,132 

51622 DATA 005,208,246,165,097,032 

: rem 142 

: rem 146 

51796 DATA 206,135,066,208,237,173 

51628 DATA 043,186,032,170,177,140 

: rem 160 

srem 147 

51802 DATA 108,066,208,048,173,109 

51634 DATA 133,066,172,131,066,169 

:rem 150 

: rem 151 

51808 DATA 066,209,043,165,002,141 

51640 DATA 000,032,145,179,162,000 

:rem 141 

: rem 127 

51814 DATA 203,003,165,003,141,204 

51646 DATA 189,092,068,149,105,232 

: rem 124 

srem 162 

51820 DATA 003,173,073,003,141,205 

51652 DATA 224,005,208,246,165,097 

:rem 126 

: rem 152 

51826 DATA 003,173,074,003,141,206 

51658 DATA 032,043,186,032,107,226 

:rem 134 

: rem 145 

51832 DATA 003,173,075,003,141,207 

51664 DATA 162,000,189,122,068,149 

: rem 133 

: rem 152 

51838 DATA 003,173,063,003,141,208 

51670 DATA 105,232,224,005,208,246 

:rem 137 

: rem 137 

51844 DATA 003,173,067,003,141,209 

51676 DATA 165,097,032,043,186,032 

:rem 139 

: rem 155 

51850 DATA 003,076,192,202,173,203 

51682 DATA 015,188,160,090,169,000 

: rem 137 

: rem 147 

51856 DATA 003,141,210,003,173,204 

5168S DATA 032,145,179,032,043,186 

: rem 127 

: rem 157 

51862 DATA 003,141,211,003,173,205 

51694 DATA 032,015,188,160,117,169 

:rem 126 

: rem 155 

51BÓS DATA 003,141,212,003,173,206 

51700 DATA 000,032,145,179,032,020 

: rem 134 

: rem 122 

51874 DATA 003,141,213,003,173,207 

51706 DATA 187,032,170,177,140,135 

: rem 133 

; rem 147 j 

51880 DATA 003,141,214,003,173,208 

51712 DATA 066,173,120,066,133,002 

: rem 132 

:rem 133 

51886 DATA 003,141,215,003,173,209 

51718 DATA 173,121,066,133,003,173 

srem 140 

:rem 140 

51892 DATA 003,141,216,003,169,000 

51724 DATA 122,066,141,073,003,173 

:rem 132 

: rem 136 

51898 DATA 141,202,003,032,104,142 

51730 DATA 123,066,141,074,003,173 

: rem 131 

: rem 135 

51904 DATA 173,108,066,024,109,147 

51736 DATA 124,066,141,075,003,173 

:rem 149 

srem 143 

51910 DATA 066,141,108,066,173,109 

51742 DATA 125,066,141,063,003,173 

: rem 146 

: rem 138 

51916 DATA 066,105,000,141,109,066 

51748 DATA 126,066,141,067,003,173 

: rem 138 

: rem 149 

51922 DATA 201,001,208,008,173,108 

51754 DATA 133,066,240,019,173,134 

: rem 131 

: rem 146 

51928 DATA 066,024,201,108,176,003 

51760 DATA 066,208,006,032,231,131 

srem 142 





51934 DATA 076,025,199,173,113,066 

:rem 159 

51940 DATA 133,002,173,114,066,133 

:rem 134 

51946 DATA 003,173,115,066,141,073 

:rem 144 

51952 DATA 003,173,116,066,141,074 

:rem 143 

51958 DATA 003,173,117,066,141,075 

:rem 151 

51964 DATA 003,173,118,066,141,063 

: rem 146 

51970 DATA 003,173,119,066,141,067 

:rem 148 

51976 DATA 003,169,030,141,021,208 

: rem 139 

51982 DATA 076,181,197,173,141,066 

51988 DATA 208,016,173,140,066,024 

: rem 152 

51994 DATA 201,090,176,008,169,001 

: rem 149 

52000 DATA 141,139,066,076,101,203 

:rero 128 

52006 DATA 173,141,066,208,016,173 

: rem 140 

52012 DATA 140,066,024,201,180,176 

: rem 129 

52018 DATA 008,169,002,141,139,066 

:rem 143 

52024 DATA 076,101,203,173,141,066 

: rem 132 

52030 DATA 240,008.173,140,066,024 

:rem 128 

52036 DATA 201,014,176,008,169,003 

:rem 135 

52042 DATA 141,139,066,076,101,203 

:rem 134 

52048 DATA 173,140,066,024,201,104 

: rem 131 

52054 DATA 176,008,169,004,141,139 

: rem 147 

52060 DATA 066,076,101,203,169,005 

: rem 136 

52066 DATA 141,139,066,096,169,001 

:rem 152 

52072 DATA 141,021,208,096,032,054 

: rem 134 

52078 DATA 135,169,040,141,110,003 

: rem 132 

52084 DATA 169,025,141,111,003,173 

:rem 135 

52090 DATA 065,003,141,144,066,032 

: rem 132 

52096 DATA 130.134,165,198,240,003 

:rem 143 

52102 DATA 076,170,206,165,002,141 


52108 DATA 
52114 DATA 
52120 DATA 
52126 DATA 
52132 DATA 
52138 DATA 
52144 DATA 
52150 DATA 
52156 DATA 
52162 DATA 
52168 DATA 
52174 DATA 
52180 DATA 
52186 DATA 
52192 DATA 
52198 DATA 
52204 DATA 
52210 DATA 
52216 DATA 
52222 DATA 
52228 DATA 
52234 DATA 
52240 DATA 
52246 DATA 
52252 DATA 
52258 DATA 
52264 DATA 
52270 DATA 


113,066, 

066,173, 

066,173, 

066,173, 

066,173, 

066,173, 

066,169, 

169,000, 

133,064, 

247,141, 

208,041, 

173,077, 

173,078, 

141,033, 

204.066, 

066,206, 

076,029, 

204,066, 

106,066, 

131,076, 

066,208, 

106,066, 

006,032, 

204,076, 

132,160, 

063,003, 

145,063, 

032,145, 


165,003, 

073,003, 

074,003, 

075,003, 

063,003, 

067,003, 

000,141, 

133,063, 

173,024, 

024,208, 

223,141 

003,141 

003,141 

208.169, 
169,025, 
204,066, 

204.169, 
141,108, 
240,006, 
247,203, 
019,169, 
206,106, 
037,132, 
075,204, 
000,177, 
240,007. 
076,049, 
063,165, 


141.114 

141.115 

141.116 

141.117 

141.118 

141.119 
srea 

069,003 

169,004 

srem 

208,041 

173,017 

017,208 

134,002 

: rem 
032,208 

041,141 

141.205 
240,003 
040,141 
066,206 
032,231 

206.205 

025,141 

066,240 

: rem 
076,012 

: rem 
032,087 

002,045 

169,160 

204,169 

063,024 


129 

130 

132 

131 

139 

134 

145 
138 

135 
138 

140 

138 

133 

136 

141 
143 

142 

139 
131 
128 

134 
150 
138 
126 

146 
125 

140 
156 

137 




52276 DATA 105,001,133,063,165,064 

:rem 132 

: rem 137 

52450 DATA 142,106,066,162,008,238 

52282 DATA 105,000,133,064,173,204 

:rem 142 

: rem 129 

52456 DATA 002,208,208,010,169,002 

52288 DATA 066,201,001,240,003,032 

: rem 133 

: rem 125 

52462 DATA 141,016,208,169,254,141 

52294 DATA 169,131,076,231,203,169 

: rem 145 

: rem 153 

52468 DATA 349,007,202,208,238,165 

52300 DATA 000,133,063,169,004,133 

:rem 156 

:rem 123 

52474 DATA 063,024,105,001,133,063 

52306 DATA 064,169,002,141,021,208 

:rem 130 

:rem 133 

52480 DATA 165,064,105,000,133,064 

52312 DATA 169,255, 141,249, 007., 169 

: rem 134 

:rem 155 

52486 DATA 173,062,003,041,004,208 

52318 DATA 017,141,002,208,169,044 

: rem 136 

: rem 139 

52492 DATA 057,206,204,066,173,204 

52324 DATA 141,003,200,169,000,141 

:rem 147 

:rem 127 

52498 DATA 066,208,008,169,001,141 

52330 DATA 016,208,169,001,241,204 

: rem 151 

: rem 129 

52504 DATA 204,066,076,070,205,032 

52336 DATA 066,141,205,066,162,115 

:rem 136 

:rem 142 

52510 DATA 231,131,162,001,142,106 

52342 DATA 138,168,136,208,253,202 

:rem 118 

: rem 147 

52516 DATA 066,162,008,206,002,208 

52348 DATA 208,249,165,198,240,006 

:cem 138 

:rem 159 

52522 DATA 208,010,169,000,141,016 

52354 DATA 032,228,255,076,179,205 

:rem 126 

:rem 155 j 

52528 DATA 208,169,255,141,249,007 

52360 DATA 173,000,220,141,062,003 • 

: rem 158 

: rem 118 ! 

52334 DATA 202,208,238,165,063,056 

52366 DATA 041,016,240,008,169,001 

:rem 148 

: rem 135 1 

52540 DATA 233,001,133,063,165,064 

52372 DATA 141,106,066,076,196,204 

:rem 133 

-.reni 14 9 

52546 DATA 233,000,133,064,173,062 

52378 DATA 206,106,066,208,037,169 

: rem 136 

:rem 158 j 

52552 DATA 003,041,001,208,045,206 

52384 DATA 020,141,106,066,160,000 

:rem 125 

:rem 126 

52558 DATA 205,066,173,205,066,208 

52390 DATA 177,063,201,160,240,015 

: rem 154 

: rem 135 

52564 DATA 008,169,001,141,205,066 

52396 DATA 169,160,145,063,169,001 

: rem 142 

: rem 154 

52570 DATA 076,122,205,032,037,132 • 

52402 DATA 141,065,003,032,029,148 

: rem 135 

: rem 132 

52576 DATA 162,001,142,106,066,162 

52408 DATA 076,196,204,169,032,145 

: rem 140 

: rem 155 

52582 DATA 008,206,003,208,202,208 

52414 DATA 063,169,000,076,178,204 

:rem 135 

: rem 146 

52588 DATA 250,165,063,056,233,040 

52420 DATA 173,062,003,041,008,208 

:rem 149 

:rem 128 

52594 DATA 133,063,165,064,233,000 

52426 DATA 059,238,204,066,173,204 

:rem 141 

: rem 151 

52600 DATA 133,064,173,062,003,041 

52432 DATA 066,201,041,208,008,169 

: rem 127 

: rem 140 

52606 DiiTA 002,208,047,238,205,066 

52438 DATA 040,141,204,066,076,006 

:rem 144 

: rem 139 

52612 DATA 173,205,066,201,026,208 

52444 DATA 205,032,169,131,162,001 

: rem 137 



52619 DATA 008,169,025,141,205,066 

:rem 148 

52624 DATA 076,176,205,032,087,132 

:rem 149 

52630 DATA 162,001,142,106,066,162 

: rem 131 

52636 DATA 008,230,003,208,202,208 

:rem 140 

52642 DATA 250,165,063,024,105,040 

:rem 133 

52648 DATA 133,063,165,064,105,000 

:rem 139 

52654 DATA 133,064,076,116,204,201 

:rem 139 

52660 DATA 145,240,043,201,029,240 

:rem 132 

52666 DATA 060,201,017,240,077,201 
s : rem 135 

52672 DATA 157,240,094,201,065,240 

: rem 144 

52678 DATA 003,076,054,206,238,040 

:rem 148 

52684 DATA 208,173,040,208,201,016 

:rem 140 

52690 DATA 208,005,169,000,141,040 

: rem 133 

52696 DATA 208,173,040,208,141,039 

:rem 151 

52702 DATA 208,076,136,204,032,129 

52708 DATA 206,032,037,132,032,037 

: rem 136 

52714 DATA 132,032,037,132,032,037 

: rem 131 

52720 DATA 132,032,037,132,076,137 

: rem 137 

52726 DATA 203,032,129,206,032,169 

: rem 143 

52732 DATA 131,032,169,131,032,169 

:rem 141 

52738 DATA 131,032,169,131,032,169 

: rem 147 

52744 DATA 131,076,137,203,032,129 

52750 DATA 206,032,087,132,032,087 

: rem 143 

52756 DATA 132,032,087,132,032,087 

: rem 147 

52762 DATA 132,032,087,132,076,137 

: rem 148 

52768 DATA 203,032,129,206,032,231 

:rem 139 

52774 DATA 131,032,231,131,032,231 

:rem 127 

52780 DATA 131,032,231,131,032,231 

:rem 124 

52786 DATA 131,076,137,203,169,147 


:rem 160 

52792 DATA 032,210,255,032,129,206 

:rem 140 

52798 DATA 173,024,208,009,008,141 

:rem 151 

52804 DATA 024,208,173,017,208,009 

:rem 143 

52810 DATA 032,141,017,208,169,000 

: rem 131 

52816 DATA 133,063,169,004,133,064 

:rem 145 

52822 DATA 160,000,173,079,003,145 

:rem 136 

52828 DATA 063,230,063,208,002,230 

: rem 135 

52834 DATA 064,165,064,201,007,208 

:rem 144 

52840 DATA 239,165,063,201,232,208 

: rem 144 

52846 DATA 233,169,014,141,249,007 

: rem 152 

52852 DATA 169,030,141,021,208,169 

:rem 146 

52858 DATA 000,141,069,003,076,127 

: rem 145 

52864 DATA 203,173,113,066,133,002 

: rem 137 

52870 DATA 173,114,066,133,003,173 

:rem 142 

52876 DATA 115,066,141,073,003,173 

: rem 147 

52882 DATA 116,066,141,074,003,173 

52888 DATA 117,066,141,075,003,173 

52894 DATA 118,066,141,063,003,173 

:rem 149 

52900 DATA 119,066,141,067,003,096 

:rem 146 

52906 DATA 169,001,141,021,208,173 

: rem 139 

52912 DATA 144,066,141,065,003,169 

: rem 146 

52918 DATA 000,141,069,003,096,032 

: rem• 139 

52924 DATA 230,134,169,030,141,120 

:rem 133 

52930 DATA 134,141,021,208,169,002 

: rem 134 

52936 DATA 141,070,003,032,035,134 

:rem 132 

52942 DATA 165,198,240,244,169,001 

: rem 155 

52948 DATA 141,120,134,141,021,208 

52954 DATA 096,165,002,141,108,066 

: rem 151 



Accordo tra Gruppo Editoriale Jackson 
e VNU Business Press 
INTEGRAZIONE MONDIALE 
NELL’EDITORIA 

ELETTRONICA E INFORMATICA 


Il Gruppo Editoriale Jackson e la VNU Business Press Group, 
gruppo intemazionale con sede ad Amsterdam c consociate 
negli Stati Uniti. Inghilterra. Francia. Spagna. Belgioe Austra¬ 
lia. hanno annunciato lo scorso maggio un accordo che preve¬ 
de l'ingresso del gruppo olandese nella compagine azionaria 
del Gruppo Editoriale Jackson con una quota del 49%. 

Il Gruppo Editoriale Jackson con le sue 28 riviste, gli oltre 
800 manuali tecnici e scolastici. 16 tra enciclopedie e corsi in¬ 
terattivi di autoapprendimento c un calendario di oltre 70 
diversi tipi di corsi di formazione, ha superato nel 1987 un 
fatturato di 30 miliardi di lire. 

L'accordo risponde in modo preciso alla struttura del merca¬ 
to delle tecnologie avanzate, che sempre più evidenzia la 
necessità di superare confini nazionali, integrando l'offerta in 
una dimensione più ampia. Gruppo Editoriale Jackson e VNU 
intendono con questo accordo rendere immediatamente opera¬ 
tiva la perfetta identità strategica nell'editoria avanzata, dando 
vita ad un'integrazione completa di mezzi e mercati nei settori 
dell'elettronica, informatica e automazione. 

Oltre all'ulteriore accrescimento della leadership consolida¬ 
ta nel settore dei periodici e libri nell'area delle nuove tecno¬ 
logie. l'accordo prevede la diffusione tempestiva su scala in¬ 
temazionale dei nuovi media interattivi realizzati daJackson. 
che vanta un'esperienza unica nel settore dei prodotti autodi¬ 
dattici basati su personal computer. 

Jackson e VNU svilupperanno anche tutte le sinergie possi¬ 
bili nell'arca dei nuovi media video, telematici e ottici con par¬ 
ticolare riferimento alle tecnologie CD-ROM. 

La VNU Business Press Group è parte del più ampio gruppo 
editoriale VNU ( Verenigde Nederlandse Uitgeversbedrijven). 
caratterizzato da un fatturato consolidato 1987 supcriorea 1.1 
miliardi di dollari. Con l'acquisizione della partecipazione 
Jackson, il fatturato ’88 della VNU Business Press Group 
supererà i 240 milioni di dollari con oltre 100 riviste professio¬ 
nali. 70 delle quali nel settore delle nuove tecnologie. 

La VNU Business Press deriva da un preciso piano strategi¬ 
co di integrazione tra editori e media leader in ciascun paese, 
mirante alla costituzione del maggior gruppo mondiale nel 
settore della business to business comunication nelle tecnolo¬ 
gie avanzane. 

Il Gruppo VNU è noto nel settore dell'editoria elettronica in¬ 
temazionale. oltre che per l'incorporazione dell'autorevole 
casa editrice americana Haydcn Publishing Company (Elec¬ 
tronic Design), avvenuta circa un anno fa. anche per la recente 
acquisizione della prestigiosa rivista Electronics dalla 
McGraw-Hill. 

Nel settore dell'informatica VNU pubblica testate di rino¬ 
manza mondiale quali l'americana Personal Computing, le 
inglesi Personal Computer World e Computing, le francesi In- 
formatique Hcbdo e Soft & Micro, nonché la spagnola Chip. 


52960 DATA 165,003,141,109,066,165 

: rem 147 

52966 DATA 001,041,254,133,001,169 

: rem 139 

52972 DATA 000,141,021,208,169,000 

: rem 130 

52978 DATA 133,002,169,160,133,003 

treni 143 

52984 DATA 169,032,133,063,169,078 

:rem 166 

52990 DATA 133,064,032,087,207,169 

treni 157 

52996 DATA 000,133,002,169,032,133 

trem 138 

53002 DATA 003,169,000,133,063,169 

trem 131 

53008 DATA 160,133,064,032,087,207 

trem 139 

53014 DATA 169,032,133,002,169,078 

trem 144 

53020 DATA 133,003,169,000,133,063 

trem 122 

53026 DATA 169,032,133,064,032,087 

trem 144 

53032 DATA 207,169,001,141,021,208 

trem 128 

53038 DATA 173,108,066,133,002,173 

trem 141 

53044 DATA 109,066,133,003,165,001 

trem 131 

53050 DATA 009,001,133,001,173,194 

trem 126 

53056 DATA 148,201,087,240,017,169 

trem 150 

53062 DATA 002,133,198,169,067,141 

trem 148 

53068 DATA 119,002,141,120,002,169 

t rem 132 

53074 DATA 087,141,194,148,096,169 

trem 168 

53080 DATA 032,141,195,148,169,064 

trem 151 

53086 DATA 141,196,148,160,000,177 

trem 149 

53092 DATA 002,145,063,165,002,024 

trem 130 

53098 DATA 105,001,133,002,165,003 

trem 126 

53104 DATA 105,000,133,003,165,063 

trem 120 

53110 DATA 024,105,001,133,063,165 

t rem 121 

53116 DATA 064,105,000,133,064,206 

trem 127 

53122 DATA 196,148,208,221,206,195 

trem 150 

53128 DATA 148,208,216,096 trem 16 
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di H.Thomas 

trad. ed adatt. di P.Ferrarl 



Sia nel Texas che nel golfo Persico, il 
petrolio è sicuramente tesaurizzato e 
ben difeso. In questo gioco in stile 
"arcade", il fabbisogno di petrolio ha 
raggiunto proporzioni astronomiche, 
obbligandovi a proteggere accu¬ 
ratamente I vostri barili di oro nero dai 
raid notturni di alieni che cercano di 
sottrarveli. E' richiesto l'utilizzo del 
Joystick. 

Dopo aver sfruttato tutte le proprie n- 
sorse, i marziani hanno deciso di cercare 
altrove le proprie fonti di energia. Trovata 
la Terra, cercano di sottrarre dai depositi 
la maggior quantità possibile di petrolio. 
La vostra difesa consiste in un cannone 
mobile, ed il vostro compito consiste nel 
difendere a qualunque costo I depositi di 
petrolio. 

Le forze marziane iniziano con un attacco 
di 10 astronavi, non dotate di armi nò di 
sistemi di difesa: esse sono state proget¬ 
tate infatti soltanto per aspirare petrolio 
dai serbatoi, e quindi portarlo alla nave 
madre in orbita attorno al pianeta. 

Su una rampa costruita a fianco dei de¬ 
positi si trova il cannone che potete utiliz¬ 
zare con il joystick. 

Muovendo la leva potete spostare il can¬ 
none verso destra o verso sinistra, e 
sparare premendo il pulsante di fuoco. 

Il cannone è equipaggiato con una ap¬ 


parecchiatura laser che permette di devi¬ 
are i proiettili una volta che questi siano 
stati sparati. Infatti, dopo aver sparato un 
colpo, lo spostamento della leva del joys¬ 
tick verso destra o verso sinistra provoca, 
oltre allo spostamento del cannone, una 
deviazione nella traiettoria del proiettile. 

I marziani sono tuttavia dei buoni piloti: 
evitano di rimanere troppo a lungo nello 
stesso posto, e non portano mai contem¬ 
poraneamente l'intera flotta sullo sch¬ 
ermo. 

Se una nave marziana entra in contatto 
con il cannone, gli sottrae energia renden¬ 
dolo più lento nei movimenti: troppi con¬ 
tatti con le navi porteranno a zero 


l'energia dei vostri accumulatori, immobil¬ 
izzandovi nella posizione in cui vi trovate. 
Dopo un certo lasso di tempo tuttavia, le 
vostre batterie si ricaricheranno per¬ 
mettendovi nuovamente il movimento. 
Se riuscite a distruggere la prima flotta 
aliena, dovrete fare i conti con la succes¬ 
siva (il computer vi chiede di premere un 
tasto tra un'ondata di invasori e la succes¬ 
siva). 

Ogni nuova ondata è composta da un 
numero di navi superiore di cinque unità 
rispetto alla precedente. 

Il gioco ha termine quando tutto il petrolio 
è stato sottratto dalle astronavi nemiche. 
Nella parte bassa dello schermo viene 
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mostrato il numero di navi aliene ancora in 
attività, mentre nella parte sinistra è visu¬ 
alizzato il vostro punteggio. 

Note per il caricamento e la digitazione 
del programma 

1 lettori abbonati alla sola rivista dovranno 

utilizzare MLX per la digitazione del pro¬ 
gramma In linguaggio macchina. 

Prima di caricare MLX, effettuare le 
seguenti POKE: 

POKE44,32:POKE32'256,0:NEW 

Caricare quindi MLX e rispondere alle sue 

domande con: 

indirizzo iniziale: 2049 
indirizzo finale: 5920 

Una volta salvato il programma su disco o 
nastro, esso potrà essere caricato ed at¬ 
tivato come un normale programma 
BASIC. 

1 Oli defense 
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2589 -.192,216,088,160,003,162, 082 
2595 :000,185,016,192,074,074,064 
2601 :074,074,009,000,157,040,139 
2607 :007,232, 185,016,192,041,208 
2613 :015,009,000,157,040,007,025 
2619 :232,136,016,229,032,016, 208 
2625 :013,096, 173,030,208,141,214 
2631 :255,195,173,255,195,041,161 
2637 :034,201,034,208,031,173,246 
2643 :255,195,056,173,011,208,213 
264 9 :237,003,208,201,032, 176,178 
2655 :017,056,173,010,208,237,028 
2661 :002,208,201,022,176,006,204 
2667 :169,001,141,008, 192,234,084 
2673 :173,255,195,041,066,201,020 
2679 ; 066, 208, 031,1-73, 255,195, 023 
2685 :056, 173,013,208,237,003,047 
2691 :208,201,032,176,017,056,053 
2697 :173,012,208,237,002,208,209 
2703 :201,022,176,006,169,001,206 
2709 :141,009,192,234,173,255,129 
2715 :195,041,130,201,130,208,036 
2721 :031,173,255,195,056,173,020 
2727 :015,208,237,003,208,201, 015 
27 33 .-032,176,017,056,173,014,129 
2739 :208,237,002,208,201,022,033 
2745 :176,006,169,001,141,010,176 
2751 :192,234,173,255, 195,041,001 
2757 :001,240,003,141,003,192,009 
2763 :172,002,192,136,208,018,163 
2769 :173,003,192,240,013,173, 235 
2775 :000,192,201,001,240,006,087 
2781 :206,000,192,140,003, 192,186 
2787 :140,002,192,206,007,192,198 
2793 :172,007,192,208,104, 173,065 
2799 :255,195,041,004,240,026,232 
2805 :173,255,195,041,002,208,095 
2811 :019,160,064,136,185, 000, 047 
2817 :051,208,250,169,000,162, 073 
2823 :003,200, 153,000,051,202,104 
2829 :203,249,173,255,195,041,110 
2835 :008,240,026,173,255,195,148 
2841 :041,002,208,019,160,064,007 
2847 :136,185,064,051,208,250,157 
2853 :169,000,162,003,200, 153,212 
2859 :064,051,202,208,249,173,222 
2865 :255,195,041,016,240,026,054 
2871 :173,255,195,041,002,208,161 
2877 :019,160,064,136,185,128,241 
2883 :051,208,250,169, 000,162,139 
2889 :003,200,153,128,051,202,042 
2895 :208,249,160,010,140,007,085 
2901 :192,173,004,220,201,010,117 
2907 :176,008,173,037,208,073,254 
2913 :008,141,037,208,096,173, 248 
2919 :021,208,201,030,176,015,242 
2925 :173,020,192,201,001,208,136 


2931 :008,173,021,208,073,032,118 
2937 :141,021,208, 162,006,160,051 
2943 :006, 173,004,220,201,004,223 
294 9 :176,003,153,248,Oli,136,092 
2955 :208,243,189,248,011,240,254 
2961 :037,201,001,208,006,032,118 
2961 :086,Oli,076, 183,011,201,207 
2973 :002,240,013,189,009,208,050 
2979 :201,205,176,016,254,009,000 
2985 :208,076,183,Oli,189,009, 077 
2991 :208,201,050,144,003,222,235 
2997 :009,208,202,189,248, Oli, 024 
3003 :240,041,201,001,208, 006,116 
3009 :032,086,Oli,076,230,Oli,127 
3015 :201,002,240,016,189,009,088 
3021 :208,201,255,208,003,032,088 
302"’ : 234, Oli, 254,009, 208, 07 6, 235 
3033 :230,Oli,189,009,208, 208, 048 
3039 :003,032,234,Oli,222,009,222 
3045 :208,202,208, 164,096,173,000 
3051 :016,208,093,243,011,141,179 
3057 : 016,208,096,032,000,064, 145 
3063 :000, 128,000,001,002,000,122 
3069 :002,003,160,003,185,252, 090 
3075 :007,201,207,208,006,136,000 
3081 :208,24 6,076,018,012,032, 089 
3087 :097,012,096,173,113,012,006 
3093 :2<U,115,240,003,076,014,158 
3099 :012, 172,254, 192,208,038, 135 
3105 :172,253,192,240,043,160,069 
3111 : 023,169, 000,153, 255, 211,082 
3117 : 136, 208,250,169,001,14 .1,182 
3123 :024,068,169,128,141,005,074 
3129 :212,169,240,141,006,212,013 
3135 5141,000,212,169,081,141,039 
3141 :004,212,206,000,068,206,253 
3147 :002,068,238,005,068,096,040 
3153 :169,000,141,005,212,141,237 
3159 5006,212,141,004,212,141,035 
3165 5254,192,096,006,172,096,141 
3171 5012,136,240,004,140,096,215 
3177 5012,096,160,006,140,096,103 
3183 5012,076,115,012,160,005,235 
3189 5185,201,012,153,001,212,113 
3195 5136,208,247,169,015,141,015 
3201 5 024,068, 160,031,162,005,067 
3207 5140,002,212,142,001,212,076 
3213 5142,198,012,140,197,012,074 
3219 5169,153,141,113,012,096,063 
3225 5174,198,012,172,197,012,150 
3231 5202,208,229,136,136,192,238 
3237 5017,208,221,169,115,141,012 
3243 5113,012,169,000,141,000,094 
3249 5212,141,001,212,141,002,118 
3255 5212,141,003,212,141,004,128 
3261 5212,141,005,212,141,006,138 
3267 5212,096,019,001,000,202,213 




3273 

: 202, 

072, 

.015, 

.065, 

,009, 

.009, 

,061 

3615 

016, 

,208, 

,073, 

.003, 

141, 

016 

2:3:2 • 

3279 

: 173, 

062, 

,051, 

,208, 

,058, 

,173, 

,164 

3621 

208, 

,206, 

,000, 

,208, 

096, 

172 

159 

3285 

: 126, 

051, 

,208, 

,053, 

,173, 

,190, 

,246 

3627 

253, 

,192, 

,240, 

.004, 

032, 

089 

085 

3291 

: 051, 

208, 

,048, 

,169, 

,008, 

.141, 

,076 

3633 

014, 

,096, 

,173, 

.000, 

220, 

041 

081 

3297 

: 042, 

208, 

,169, 

,201, 

,141, 

,251, 

,213 

3639 

016, 

,201, 

,000, 

,208, 

008, 

169 

145 

3303 

:007, 

162, 

,080, 

,032, 

,216, 

.013, 

,229 

3645 

001, 

, 141, 

,253, 

.192, 

032, 

069 

237 

3309 

:202, 

208, 

,250, 

,162, 

,080, 

,169, 

,028 

3651 

014, 

,096, 

,173, 

.000, 

208, 

141 

187 

3315 

:200, 

141, 

,251, 

,007, 

,032, 

.216, 

,066 

3657 

002, 

,208, 

,169, 

202, 

234, 

141 

005 

3321 

: 013, 

202, 

,208, 

,250, 

,032, 

,228, 

,158 

3663 

003, 

,208, 

,173, 

.021, 

208, 

073 

253 

3327 

: 255, 

240, 

,225, 

,142, 

,015, 

,208, 

,060 

3669 

002, 

, 141, 

,021, 

,208, 

172, 

003 

120 

3333 

: 142, 

013, 

,208, 

,142, 

,011, 

,208, 

,217 

3675 

208, 

,240, 

,011, 

,136, 

140, 

003 

061 

3339 

: 076, 

014, 

,008, 

,096, 

,001, 

,162, 

,112 

3681 

20S, 

,173, 

,000, 

,208, 

141, 

002 

06.1 

3345 

:000, 

160, 

,001, 

,185, 

,020, 

.192, 

,063 

3687 

208, 

,096, 

,173, 

,021, 

208, 

073 

114 

3351 

:074, 

074, 

,074, 

,074, 

,009, 

,000, 

,072 

3693 

002, 

, 141, 

,021, 

.208, 

140, 

253 

106 

3357 

:157, 

066, 

,007, 

,232, 

,185, 

.020, 

,184 

3699 

192, 

,096, 

,172, 

,249, 

202, 

185 

187 

3363 

: 192, 

041, 

,015, 

,009, 

,000, 

,157, 

,193 

3705 

000, 

,004, 

,201, 

,023, 

208, 

006 

051 

3369 

:066, 

007, 

,232, 

,136, 

,016, 

.229, 

,215 

3711 

032, 

,151, 

,014, 

, 153, 

000, 

216 

181 

3375 

: 172, 

021, 

,192, 

,208, 

,046, 

.172, 

,090 

3717 

185, 

,000, 

,005, 

201, 

023, 

208 

243 

3381 

:020, 

192, 

,192, 

,003, 

,176, 

,039, 

.163 

3723 

006, 

,032, 

,151, 

, 014, 

153, 

000 

239 

3387 

: 173, 

010, 

,208, 

,208, 

.008, 

.173, 

,071 

3729 

217, 

,136, 

.140, 

.249, 

202, 

096 

161 

3393 

:021, 

208, 

,041, 

,223, 

,141, 

.021, 

,208 

3735 

173, 

.004, 

,220, 

.041, 

007, 


189 

3399 

:208, 

173, 

,012, 

,208, 

.208, 

.008, 

,120 

3741 

001, 

,096, 

,160, 

006, 

162, 

000 

070 

3405 

: 173, 

021, 

,208, 

.041, 

.191, 

.141, 

,084 

3747 

202, 

,208, 

,253, 

.136, 

208, 

248 

138 

3411 

:021, 

208, 

,173, 

,014, 

,208, 

.208, 

, 147 

3753 

096, 

.169, 

,003, 

.133, 

252, 

169 

223 

3417 

:008, 

173, 

, 021, 

,208, 

.04-1, 

.127, 

,155 

3759 

255, 

,133, 

,251, 

,169, 

219, 

133 

055 

3423 

: 141, 

021, 

,208, 

,096, 

,173, 

.020, 

,242 

3765 

254, 

.169, 

,231, 

,133, 

253, 

169 

110 

3429 

: 192, 

208, 

,039, 

173, 

.021, 

192, 

,158 

3771 

019, 

.141, 

.236, 

.014, 

169, 

021 

019 

3435 

: 208, 

034, 

,162, 

.080, 

,032, 

.206, 

,061 

3777 

141, 

,231, 

.014, 

.141, 

245, 

014 

211 

3441 

: 013, 

202, 

,208, 

.250, 

169, 

.000, 

,187 

3783 

162, 

.166, 

.056, 

.165, 

253, 

253 

230 

3447 

: 141, 

042, 

,208, 

,169, 

.205, 

.141, 

,001 

3789 

077, 

,019, 

,133, 

,253, 

165, 

254 

082 

3453 

: 251, 

007, 

, 162, 

.080, 

.032, 

216, 

,105 

3795 

233, 

,000, 

.133, 

.254, 

189, 

167 

163 

3459 

: 013, 

202, 

.208, 

.250, 

032, 

228, 

,040 

3801 

018, 

,188, 

.077, 

.019, 

145, 

253 

149 ' 

3465 

: 255, 

240, 

,225, 

,076, 

.144, 

.013, 

,066 

3807 

136, 

.208, 

,251, 

,202, 

208, 

228 

Ì76 

3471 

: 096, 

120, 

.248, 

,024, 

.173, 

022, 

,058 

3813 

188, 

,132, 

022, 

.240, 

035, 

189 

Oli 

3477 

: 192, 

105, 

,005, 

,141, 

,022, 

.192, 

,038 

3819 

244, 

,020, 

,145, 

.251, 

136, 

208 

215 

3483 

: 141, 

020, 

.192, 

,173, 

.023, 

192, 

,128 

3825 

251, 

,024, 

.189, 

.132, 

022, 

101 

192 

3489 

; 105, 

000, 

.141, 

023, 

.192, 

141, 

,251 

3831 

251, 

,133, 

.251, 

.144, 

002, 

230 

234 

3495 

: 021, 

192, 

,216, 

,088, 

.169, 

.000, 

,085 

3837 

252, 

,232, 

,208, 

228, 

238, 

231 

106 

3501 

: 141, 

Oli, 

.208, 

.141, 

,013, 

.208, 

,127 

3843 

014, 

,238, 

.236, 

014, 

238, 

245 

220 

3507 

: 141, 

015, 

.208, 

,141, 

,253, 

.192, 

,105 

3849 

014, 

,076, 

,229, 

.014, 

169, 

191 

190 

3513 

: 141, 

254, 

,192, 

.169, 

253, 

141, 

,055 

3855 

133, 

.251, 

,169, 

,255, 

133, 

253 

185 

3519 

: 021, 

208, 

.169, 

,015, 

.141, 

.000, 

,233 

3861 

169, 

.051, 

,133, 

.252, 

133, 

254 

245 

3525 

: 192, 

104, 

.104, 

032, 

,016, 

013, 

,146 

3867 

162, 

.048, 

,160, 

.064, 

142, 

033 

124 

3531 

: 076, 

251, 

.008, 

.169, 

.200, 

141, 

,024 

3873 

192, 

,056, 

,173, 

.022, 

023, 

109 

096 

3537 

:251, 

007, 

169, 

.001, 

.141, 

042, 

,052 

3879 

025, 

,023, 

.109, 

.026, 

023, 

'■i: 

130 

3543 

: 208, 

142, 

,015, 

.013, 

032, 

159, 

,016 

3885 

021, 

,023, 

.162, 

004, 

189, 

021 

209 

3549 

:014, 

032, 

117, 

014, 

.160, 

003, 

,049 

3891 

023, 

,157, 

.022, 

023, 

202, 

016 

238 

3555 

: 140, 

002, 

.193, 

032, 

042, 

014, 

,138 

3897 

247, 

,205, 

.032, 

192, 

176, 

005 

146 

3561 

: 032, 

249, 

013, 

.032, 

255, 

Oli, 

,057 

3903 

169, 

,000, 

,076, 

071, 

015, 

177 

059 

3567 

: 172, 

002, 

.193, 

136, 

208, 

238, 

,164 

3909 

251, 

.074, 

145, 

253, 

136, 

208 

112 

3573 

: 174, 

015, 

,013, 

096, 

.173, 

000, 

,204 

3915 

213, 

.024, 

.165, 

.253, 

105, 

064 

131 

3579 

:220, 

041, 

015, 

,201, 

.013, 

176, 

.149 

3921 

133, 

.253, 

165, 

.254, 

105, 

000 

223 

3585 

:039, 

201, 

.009, 

.176, 

019, 

172, 

,105 

3927 

133, 

.254, 

.173, 

032, 

192, 

105 

208 

3591 

:000, 

208, 

192, 

255, 

208, 

008, 

,110 

3933 

005, 

. 141, 

.032, 

192, 

174, 

033 

158 

3597 

: 173, 

016, 

208, 

073, 

003, 

141, 

.115 

3939 

192, 

202, 

208, 

.182, 

096, 

060 

015 

3603 

: 016, 

208, 

.238, 

.000, 

208, 

096, 

.017 

3945 

102, 

.110, 

.118, 

.102, 

102, 

060 

187 

3609 

: 172, 

000, 

208, 

.208, 

.008, 

173, 

.026 

3951 

000 , 

.024, 

.024, 

.056, 

024, 

024 

007 
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3957 :024,126,000,060,102,006,179 
3963 :012,048,096,126,000,060,209 
3969 :102,006,028,006,102,060,177 
3975 -.000,006,014,030,102, 127,158 
3981 :006,006,000,126,096, 12 4,243 
3987 :006,006, 102,060,000,060, 125 
3993 :102,096,124,102,102,060, 227 
3999 :000,126, 102,012,024,024,191 
4005 :024,024,000,060,102, 102,221 
4011 :060,102, 102,060,000,060,043 
4017 :102, 102,062,006, 102,060, 099 
4023 :000,024,060,102, 126, 102, 085 
4029 :102, 102,000,060,102,096, 139 
4035 :096,096,102,060,000,126,163 
4041 :096,096, 120,096,096,126,063 
4047 :000,099, 119,127, 107,099,24 6 
4053 :099,099,000,124,102,102,227 
4059 :124,120,108,102,000,060,221 
4065 :102, 102,102,102,102,060,027 
4071 :000,060, 102,096,060,006,043 
4077 :102,060,000,000,000,000,143 
4083 :224,240,056,024,024,024,067 
4089 :024,028,015,007,000,000,067 
4095 :000,024,024,056,240,224,055 
4101 :000,000,000,192,192,192,069 
4107 :192,192,192,255,255,192,009 
4113 :224,112,056,028,014,007,202 
4119 :003,063,031, 143,199,227, 177 
4125 :241,248,252,000,000,000, 002 
4131 :008,000,000,000,000,255,042 
4137 :255,255,255,255,255,255,035 
4143 :255,255,231,231,129,231,099 
4149 :231,255,255,003,007,014,050 
4155 .-028,056,112,224,192,255,158 
4161 :255,192,192,192,192,192,000 
4167 :192,255,255,003,003,003,014 
4173 :003,003,003,255,195,129,153 
4179 :129,129,129, 195,255,000, 152 
4185 :000,000,007,015,028,024,163 
4191 :024,255, 128,128,128,128,118 
4197 :128, 128, 128,000,000,000,229 
4203 :000,000,000,000,000,247,098 
4209 :227,193,128, 193,227,247,04 8 
4215 :255,102, 102, 102,000,000, 168 
4221 :000,000,000,231,231,231,050 
4227 :000,000,231,231,231,255, 055 
4233 :127,063,031,015,007,003,127 
4239 :001,000,128, 192,224,240,160 
4245 :248,252,254,240,240,240,087 
4251 :240,240,240,240,240,000,075 
4257 :000,000,000,255,255,255,158 
4263 :255,255,255,255,255,000,162 
4269 :000,000,000,192,192,192,237 
4275 :192,192,192,192,192,063,178 
4281 :063,063,063,063,063,063,051 
4287 :063,255,254,252,248,240,223 
4293 :224,192,123,000,001,003,233 


4299 :007,015,031,063,127,003,193 
4305 :003,003,003,003,003,003,227 
4311 :003,252,252,252,252, 252,198 
4 317 :252,252,252,000,000,000,209 
4323 :000,015,015,015,015,255,030 
4329 :255,255,255,240,240,24 0,182 
4335 :240,000,000,000,000,000,223 
4341 :000,255,255,255,255,255,240 
434 7 :255,255,255,000,000,000,248 
4353 :000,000,255,255,024,024,047 
4359 :024,192,192,192,192,192,223 
4365 :192, 192,192,063,063,063,010 
4371 :063,063,063,063,063,248,070 
4377 :248,248,248,248,248,248,233 
4383 :248,000,255,255,255,255,019 
4389 :255,255,255,252,252,252,022 
4395 :252,252,252,000,000,000,031 
4401 :000,000,000,240,240,240,001 
4407 :240,255,255,255,255,015,050 
4413 :015,015,015,015,015,015,151 
4419 :015,000,000,000,000,000,082 
4425 :024,024,126,024,024,000,039 
4431 :000,015,015,015,015,255,138 
4437 :255,255,255,024,024,024,154 
4443 :255,255,024,024,024,240,145 
4449 :240,240,240,255,255,255,046 
4455 :255,000,000,000,000,000,102 
4461 :000,247,189,239, 148, 161,069 
4467 :008,247,185,239,133,032,191 
4473 :033,133,189,239,000,000,203 
4479 :000,007,181,032,004,181, 020 
4485 :032,007,189,224,004,172,249 
44 91 :192,004,172’, 192,000,000,187 
4497 :000,004,189,032,004,161,023 
4503 :032,007,057,224,005,032,2 52 
4509 :192,005,188,192,000,000,222 
4 515 -.000,000,000,000,000,000,163 
4521 :000,000,000,000,000,000,169 
4527 :000,000,000,000,000,000,175 
4533 :000,000,061,232, 188,033,183 
4539 :045,160,045,239,184,037,129 
4545 :042,160,061,040, 188,000,172 
4551 :000,000,061,023, 188,037,252 
4557 :020,036,037,183,060,036,065 
4563 :228,040,060,071,172,000,014 
4569 :000,000,000,000,000,000,217 
4575 :000,000,000,000,000,000,223 
4581 :000,000,000,000,024,000,253 
4587 :000,024,000,000,024,000,027 
4593 :000,024,000,000,024.000,033 
4599 :000,024,000,000,024,000,039 
4605 :000,024,000,063,219,240,031 
4611 :159,024,248,207,195,252,064 
4617 :231,255,254,176,000,000,157 
4623 :087,255,255,053, 192,029,118 
4629 .-023,031,199,006,117,115,000 
4635 :000,200,152,000,200,152, 219 




4641 :000,117,312,000,031,192,229 
4647 :000,000,000,003,000,000,042 
4653 :003,000,000,003,000,000,051 
4659 :003,000,000,003,000,000,057 
4 665 :003,000,000,003,000,000, 063 
4671 :003,000,000,003,000,000,069 
4677 ;003,000,000,000,000,000,072 
4683 :000,000,000,000,000,000,075 
4 689 :000,000,000,000,000,000,081 
4 695 :000,000,000,000,000,000,087 
4701 :000,000,000,000,000,000,093 
4707 :000,000,000,000,000,000,099 
4713 :000,000,015,255,240, 058, 161 
4729 :170,172,251,119,111,249,159 
4725 :221,239,058,170,172,015,224 
4731 -.255,240,003,255,192,002,046 
4 7 37 :040,128,008,040,040,032, 161 
474 3 :130,000,000,000,000, 000,009 
4 74 9 :000,000,000,000,000,000,141 
4755 :000,000,000,000,000,000,147 

47 61 :000,000,000,000,000,000,153 
4767 :000,000,000,000,000,000,159 
4 773 :000,000,000,Oli,Oli,000,187 
4779 :011,000,Oli,000,007,000,200 
4785 :007,000,Oli,000, 011,000,206 
4 7 91 : Oli,006,014,Oli,007,006,238 
4797 : 014,007,Oli,006,014,000,241 
4803 :011,006,014,Oli,006,014,001 
4809 :011,006,014,Oli,006,014,007 
4 815 :006,014,Oli,008,011,006,007 
4821 :014,006,014,Oli,008,Oli,021 
4827 :006,014,006,014,011,008,022 
4 833 : Oli,006,014,006,014,Oli,031 

48 3? :006,014,006,014,Oli,006,032 
4845 :014,006,014,Oli,000,006,032 
4831 :014,006,014,000,006,014,041 
4857 :000,006,014,006,014,000,033 
4863 :006,014,000,006,014,006,045 
486? :014,000,006,014,000,006,045 
4875 :014,006,014,000,006,014,065 
4881 :000,006,014,006, 014,000,057 
4 88 ' :00 6,014,000,006,014,006,069 
4893 :014,000,006,014,000,006,069 
489? :014,006,014,000,006,014,089 
4905 :000,006,014,006,014,000,081 
4911 :006,014,000,006,014,006,093 
4 917 :014,000,006,014,000, 006, 093 
4 92 3 :014,000,006,014,000, 006, 099 
4929 :014,000,Oli,012,011,012,125 
4935 : Oli, 012, Oli, 012, OH, 000,128 
4941 :011,255,112,003,008,001,211 
4 947 :027,001,001,002,001,001,116 
4953 :005,001,005,001,017,001,119 
4959 :001,004,001,001,001,001,104 
4 965 :003,001,001,001,004,001,112 
4 9 71 :001,004,001,001,005, 001,120 
4 977 :001,005,001,001,006,001,128 


4983 :001,001,002,001,001,006,131 
4989 :001,001,001,002,001,001,132 
4995 :006,001,001,001,003,001,144 
5001 :001,006,004,001,001,001,151 
5007 :006,004,001,001,001,006, 162 
5013 :004,001,001, 001, 001,006,163 
5019 :001,001,001,001,001,001,161 
5025 :001,006,001,001,001,001,172 
5031 :001,001,001,006,001, 001,178 
5037 :001,001,002,001,001,006,185 
5043 :001,001,001,001,001,001,185 
5049 :001,006,001,001,001,001, 196 
5055 :001,001,001,006,001,001,202 
5061 :001,001,002,001,001,006,209 
5067 :001,001,001,001,001,001,209 
5073 :001,006,001,001,001,001,220 
5079 :001,001,001,006,001,001,226 
5085 :001,001,002,001,008,004,238 
5091 :001,008,004,001,008,084,077 
5097 :002,005,001,008,012,005,010 
5103 :001,004,002,120,040,032,182 
5109 :023,032,023,032,023,032,154 
5115 :023,032,023,032,023,032,160 
5121 :023,032,023,032,023,032, 166 
5127 :023,032,023,032,023,032,172 
5133 :023,032,023,032,023,032,178 
5139 :023,032,053,058,032,0'3,240 
5145 :032,023,032,023,032,023,190 
5151 :032,023,053,058,186,058,185 
5157 :032,023,032,023,032,023,202 
5163 :032,023,032,057,047,032,010 
5169 :053,186,058,032,023,032,177 
5175 :023,032,023,032,04 5,023,233 
5181 :032,036,087,043,032,053,088 
5187 :040,024,040,024,058,032,029 
5193 :044,033,037,023,032,062,048 
5199 :032,023,032,062,032,04 5,04 9 
5205 :032,048,041,032,023,032, 037 
5211 :087,032,023,032,053,040,102 
5217 :024,040,024,040,038,032,039 
5223 :023,032,044,033,037,032,048 
5229 :024,032,062,032,023,024,050 
5235 :032,045,048,041,087,032,144 
5241 :053,040,088,040,088,040,214 
524 7 :038,032,044,033,037,023, 078 
5253 :032,024,032,044,024,037,070 
5259 :032,024,023,048, 040, 048, 098 
5265 :040,048,040,048,041,087, 193 
5271 :044,037,023,053,168,216,180 
5277 :168,216, 168,038,023,044,046 
5283 :033,037,053,024,153,024,231 
5289 :046, 176,168,048,063,039,197 
5295 :063,039,024,041,087, 090, 007 
5301 :094,081,037,053,168,024,126 
5307 :040,024,040,024,090,033,182 
5313 :053,062,024,190,024,190,224 
5319 :024,062,046,176,168,048,211 
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5325 :391,063,046,090,087,082,252 
5331 :083,087,085,040,024,040, 058 
5337 .-024,040,090,033,090,055,037 
5343 :048,046,043,040,048,063,004 
5349 :108,152,063,191,04 6,02 4,045 
5355 :087,108,024,087,046,040,115 
5361 :024,108,024,090,033,108,116 
5367 :024,191,108,152,063,108, 125 
5373 :024,046,048,040,048,063,010 
5379 .-024,046,024,063, 115,040,059 
5385 :024,046,024,191,115,191,088 
5391 .-152,046,024,046,115,040,182 
5397 :048,050,024,046,024,053,010 
5403 :024,050,152,046,024,053, 120 
5409 .-024,050,024,046,024,053,254 
5415 :024,050,085,024,046,024,036 
5421 :085,024,085,024,046,02 4,077 
5427 :085,024,085,024,046,024,083 
5433 :085,024,085,024,04 6,024,089 
5439 :085,024,085,024,04 6,024,095 
5445 :085,024,085,024,046,024,101 
5451 :085,024,085,024,055,022, 114 
5457 :024,085,100,024,085,024,167 
5463 :055,022,024,085,100,024,141 
5469 :085,024,055,022,024,085, 132 
5475 :100,024,085,100,024,085,005 
5481 -.100,024,085,100,024,085,011 
54 87 :092,056, 016, Oli, 015,014, 059 
5493 :012,056,000,056,016,Oli,012 
5499 :015,013,016,056,000,056,023 
5505 :085,092,056,002,001,003,112 
5511 :001,002,001,003,001,004,147 
5517 :001,006,001,003,001,003,156 
5523 :001,009,001,003,001,005,167 
5529 :001,005,001,008,001,006,175 
5535 :001,004,001,006,001,003,175 
5541 :001,005,007,001,005,001,185 
5547 :006,001,005,001,006,001,191 
5553 -.001,003,001,001,001,001,185 
5559 :008,001,005,001,000,001,207 
5565 :002,002,002,002,001,002,200 
5571 :003,003,001,003,001,010,216 
5577 :001,001,001,001,006,001,212 
5583 :002,001,002,001,001,001,215 
5589 :001,001,001,005,001,001,223 
5595 :001,001,003,001,001,001,227 
5601 :003,001,001,002,001,002,235 
5607 :001,001,001,001,002,001,238 
5613 :001,001,001,001,001,001,243 
5619 :001,001,001,001,001,001,249 
5625 :001,003,001,003,001,002,004 
5631 :001,001,001,001,001,003,007 
5637 :005,001,002,003,001,001,018 
5643 :001,001,001,001,001,002,018 
5649 :001,005,001,001,001,001,027 
5655 :001,001,001,001,001,001,029 
5661 :001,001,001,002,001,001,036 


5667 -.001,001,001,002,001,001,042 
5673 :001,001,001,001,001,001,047 
5679 :001,001,001,001,007,001,059 
5685 :001,003,001,003,001,001,063 
5691 :001,001,001,001,001,001,065 
5697 :001,001,001,001,001,001,071 
5703 :001,001,001,001,001,001,077 
5709 :001,001,001,009,001,001,091 
5715 :001,001,001,001,001,001,009 
5721 .-001,001,001,001,002,003,098 
5727 :001,001,001,001,001,001,101 
5733 :001,001,001,001,001,001,107 
5739 :001,005,001,004,008,001,127 
574 5 :001,001,001,001,001,001,119 
5751 :001,001,001,001,001,001, 125 
5757 :001,001,001,001,001,001, 131 
5763 :001,001,004,001,001,004,143 
5769 :001,001,005,001,001,001,347 
5775 :001,001,001,001,006,001, 154 
5781 :002,001,001,001,007,001,162 
5787 :002,001,001,002,006,001,168 
5793 :002,001,001,001,001,001,168 
5799 :006,001,002,001,002,001, 180 
5805 :006,001,002,ODI,002,001,186 
5811 :006,001,002,001,002,001,192 
5817 :001,006,001,002,001,002,198 
5823 :001,006,001,002,001,002,204 
5829 :001,006,001,002,001,002,210 
5835 .-002,006,001,002,001,002,217 
5841 .-001,006, 001, 002,001,002,222 
5847 .-001,006,001,002,001,002,228 
5853 :002,002,005,001,001,001,233 
5859 :001,001,001,002,005,001,238 
5865 :001,001,001,001,001,002,240 
5871 :005,001,001,001,001,001,249 
5877 :002,001,008,004,001,008,013 
5883 :004,001,008,044,040,002,094 
5889 :001,001,001,001,001,001,007 
5895 :008,012,001,001,001,001,031 
5901 -.001,001,004,002,080,040, 141 
5907 :040,000,162,162,126,024,021 
5913 :196,000,000,000,000,000,221 
5919 :000,000,069,082,032,069,027 
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di A.Smlth 

trad. ed adatt. di P.Ferrarl 


Copiare I file In linguaggio macchina è 
sempre stalo un problema per tutti: 
POKE di rllocazione della memoria, 
utilizzo di MLX, attese lunghe. Ecco 
ora il programma che risolve tutti 
questi problemi consentendo di copi¬ 
are facilmente tutti i programmi in lin¬ 
guaggio macchina. In due versioni per 
C64 e CI 28. 


ML Cloner è scritto in BASIC. Quando 


desiderate copiare un file in linguaggio 
macchina, caricate ed attivate ML Cloner. 
Il programma vi chiederà il nome del file 
su disco da copiare, e quindi caricherà il 
file in memoria. 

Dopo che il file è stato caricato, vengono 
visualizzati i suoi indirizzi iniziale e finale, 
quindi il programma chiede se si desidera 


continuare nella copia oppure abban¬ 
donare l'operazione. 

ML Cloner chiede quindi se desiderate 
copiare il file con un nome differente da 
quello originale: se desiderate effettuare 
questa operazione, dovrete inserire il 
nuovo nome con il quale il file dovrà 
essere salvato. 


Inserite quindi il disco che dovrà conten¬ 
erlo. e premete RETURN. Il file verrà 
scritto sul disco con il nome desiderato. A 
questo punto, se lo desiderate, potete 
effettuare più copie dello stesso file (che è 
presente in memoria) su dischi diversi, 
oppure rilanciare il programma per copi¬ 
are un nuovo file. 


20 BANK15:CP-128 :rem 137 

30 EA=174:SA-193:IFPEEK(65530)=164THENCP« 
16 :EA=157:SA«178 :rem 47 

40 B-16:Z-256 :rem 184 

60 PRINT"(CLR)IRVSI";:FORI-lTO40:PRINTCHR 
$(32);:NEXT:PRINTSPC(15)"(SO)( 1 SH M) 
( 1 SH C)LONER" : rem 189 

70 INPUT"(GIU'}NOMEFILE";N$:IFN$=""THENPR 
INT"(CLR)":END :rem 168 

80 GOSUB350:IFA°62THENPRINT"(RVS)FILE NON 
TROVATO SU QUESTO DISCO":N$="":GOTO70 
:rem 125 


90 IFATHENPRINT"(RVS)ERRORE “B$:END 

:rem 145 

100 PRINT"(GIU'JLOADING "NS;:BLOAD(N$),BO 
:GOTO130 :rem 34 

110 POKE147,0:IFCP-16THENSYS4311SNS,8,1:S 
YS61516:GOTO130 : rem 91 

120 SYS57812NS,8,1:SYS62631 : rem 7 

130 PRINT". TERMINATO." : rem 116 

140 L=ASC(AS+CHRS(0)):H=ASC(BS+CHRS(0)):S 
=L+Z*H:E=PEEK(EA)+Z*PEEK(EA+1)-1 

: rem 124 

150 PRINTSPC(18)"(GIU'}HEX( 3 SPAZI)DEC": 
B=S:GOSUB330:D-E:HSS-HS:HS-"":GOSUB33 
0 : rem 64 

160 PRINT"LOCAZ. INIZIALE : "HSSTAB(13)S 




: rem 61 

170 PRINT"LOCAZ. FINALE :( 3 SPAZI)"HSTAB 
(23)E : rem 55 

180 PRINT"(GIU')PRONTO PER COPIARE IL FIL 
E( 2 SPAZI) (S/N) ?"; :GOSUB310 : IFKSo'S 
“THEN290 :rem 248 

190 PRINT"(GIU' IMODIFICO IL NOME DEL FILE 
( 3 SPAZI)(S/N)7";:GOSUB310 :rem 104 
200 IFKS»"S"THENPRINT"(GIU')VECCHIO NOME: 

*N$:INPUT"NU0V0 N0ME";N$ :rem 210 

210 PRINT"(GIU'[PREMI <RETURN> PER COPIAR 
E." : rem 100 

220 GETKS : IFKSoCHRS ( 1 3) THEN220 : rem 14 
230 GOSUB35Q:IFA>0ANDA<>62THENPRINT”(RVS) 
ERRORE “BS:GOTO180 : rem 110 

240 IFA“0THENPRINT"(GIU'(NOMEFILE: “N$:PR 
INT"<RVS(ESISTE SU QUESTO DISCO.":GOT 
0180 : rem 254 

250 PRINT"{GIU')(RVS)COPYING "NS;:BSAVE(N 
$),B0»P (S)TOP(E+l ):GOTO280 :rem 111 

260 IFCP=16THENSYS43115NS,8,1:POKESA,L:PO 
KESA+1,H:SYS61860:GOTO280 ■ :rem 74 
270 SYS57812NS,8,1 :POKESA,L:P0KESA+1,H:SY 
S62957 : rem 90 

280 PRINT". TERMINATO."SPRINT"(GIU'(LO CO 
PIO ANCORA (S/N)?";:GOSUB310:IFK$="S" 
THEN190 :rem 29 

290 PRINT"|GIU'[VUOI COPIARE UN ALTRO FIL 
E (S/N)?";:GOSUB310:IFK$="S"THENRUN 

300 END : rem 106 

310 GETKS:IFK$<>"S"ANDK$<>"N"THEN31G 

:rem 61 

320 PRINT"(DES)"KS:RETURN : rem 12 

330 X=((D/B)-INTID/B))-B:HS=CHRS(7*ABS<X> 
9)+X+48)♦H$:D-(D-X)/B:IFDTHEN330 

: rem 97 

340 RETURN :rem 119 

350 OPEN15,8,lS,"I0:":!EN8,8,8,"0:"+N$+" 
,P,R" : rem 149 

360 INPUTD15,A, BS: I FA“0ANDS=ETHENGET# 8, A3 
,BS :rem 93 

370 CLOSE8:CI,OSEl 5: RETURN : rem 120 


Programma 2 

30 EA-174 :SA-193 :IFPEEK(65530)-164THENCP= 
16:EA-1S7:SA«178 :rem 47 

40 B-16:Z-256 : rem 184 

60 PRINT" (CLR) (RVS)"; :FORI«lTO40:PP.INTCHR 
$(32);:NEXT:PRINTSPC(15)"(SU)(SU)L 
( 1 SH C)LONER" : rem 189 

70 INPUT"(GIU')NOMEFILÉ";N$:IFN$-""THENPR 
INT"(CLR)":END : rem 168 

30 GOSUB350:IFA-62THENPRINT"(RVS)FILE NON 
TROVATO SU QUESTO DISCO":N$-"":GOTO70 
: rem 125 


i 90 IFATHENPRINT"lRVS)ERRORE “B$:END 

:rem 145 

100 PRINT"(GIU' ILOADING “NS; : rem 30 
110 POKE147,0:IFCP=16THENSYS43115NS,8,1:3 
YS61516:GOTO130 :rem 91 

120 SYS57812NS,8,1:SYS62631 :rem 7 

130 PRINT". TERMINATO." :rem 116 

140 L”ASC(AS+CHRS(0) ) :H-ASC(B$-»CHR$ (0) ) :S 
-L*Z*H:E-PEEK(EA)*Z*PÈEK(EA*1)-1 

:rem 124 

150 PRINTSPC(18)"(GIU')HEX( 3 SPAZI)DEC": 
D-S:GOSUB3 30:D-E:HSS>H$:H$-"":GOSUB33 
0 : rem 64 

160 PRINT"LOCAZ. INIZIALE : "HSSTAB(23)S 

170 PRINT"LOCAZ. FINALE :( 3 SPAZI|"HSTAB 
(23)E : rem 55 

| 180 PRINT"(GIU'[PRONTO PER COPIARE IL FIL 
E ( 2 SPAZI) (S/N)?"; :GOSUB310 : IFKSo"S 
"THEN290 : rem 248 

; 190 PRINT"(GIU'IMODIFICO IL NOME DEL FILE 
( 3 SPAZI)(S/N)?";:GOSUB310 :rem 104 
j 200 IFK$="S"THENPRINT"(GIU'(VECCHIO NOME: 

"N$:INPUT"NUOVO NOME";N$ : rem 210 

| 210 PRINT"(GIU')PREMI <RETURN> PER COPIAR 
E." : rem 100 

220 GETKS: IFKSOCHRS (13) THEN220 : rem 2 4 

\ 230 GOSUB350:IFA>0ANDA<>62THENPRINT"■RVS) 
ERRORE “BS:GOTO180 : rem 110 

240 IFA=0THENPRINT"(GIU'INOMEFILE: “NS:PR 
INT"(RVS)ESISTE SU QUESTO DISCO.":GOT 
0180 : rem 254 

250 PRINT"(GIU')(RVS(COPYING “N$; 

:rem 81 

j 260 IFCP=16THENSYS43115N$,8,1:POKESA,L:PO 
KESA+1,H:SYS61860:GOTO280 :rem 74 

I 270 SYS57812NS,8,1 : POKESA,L:P0KESA+1, H:SY 
S62957 : rem 90 

280 PRINT". TERMINATO.":PRINT"(GIU'ILO CO 
PIO ANCORA (S/N)?";:GOSUB310:IFKS“"S" 
THEN190 ; rem 29 

290 PRINT"(GIU'(VUOI COPIARE UN ALTRO FIL 
E (S/N)?";:GOSUB310:IFK$-"S"THENRUN 

: rem 33 

J 300 END : rem 106 

310 GETKS:IFKS<>"S"ANDKS<>"N"THEN310 

: rem 61 

; 320 PRINT"(DES)"KS:RETURN :rem 12 

330 X=((D/B)-INT(D/B))*B:HS-CHR$(7*ABS(X> 
9)+X+48)+HS:D-(D-X)/B:IFDTHEN330 

:rem 97 

I 340 RETURN :rero 119 

350 OPEN15,8,15,*10:":0PEN8,8,8,*0:"+HS+" 
,P,R" : rem 149 

! 360 INPUT415, A, BS: IFA*=0ANDS*=ETHENGET#8, AS 
, BS :.rem 93 

370 CLOSE8:CLOSEl5:RETURN : rem 120 
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